(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    265508,       6157]
NotebookOptionsPosition[    263323,       6110]
NotebookOutlinePosition[    263755,       6128]
CellTagsIndexPosition[    263712,       6125]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", 
    RowBox[{"2", "-", 
     RowBox[{"Sn", "/", "15"}], "-", 
     RowBox[{"PbTe", " ", "with", " ", "Rashba"}]}], "*)"}], "Title"], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "open", " ", "with", " ", "Mathematica", " ", "version", " ", "10.0", " ", 
    
    RowBox[{"email", ":", 
     RowBox[{"haiwen", ".", 
      RowBox[{"liu", "@", "bnu"}], ".", "edu", ".", "cn"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Tc", "=", "0.23"}], ";", 
    RowBox[{"(*", 
     RowBox[{"Tc", " ", 
      RowBox[{"Unit", ":", " ", "Kelvin"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Bp", "=", 
     RowBox[{"1.86", "*", "Tc"}]}], ";", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"Pauli", " ", "limit", " ", "Bp"}], "=", 
      RowBox[{"1.86", "*", "Tc"}]}], "*)"}], 
    RowBox[{"(*", 
     RowBox[{"parallel", " ", "field"}], "*)"}], "\n", 
    RowBox[{"FFLOS", "=", "0.6"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "largest", " ", "Hc2", " ", "for", " ", "FFLO", " ", "state", " ", 
      RowBox[{"Unit", ":", "Tesla"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"dataFFLO", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", " ", 
         RowBox[{"0", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.987037037", ",", " ", 
         RowBox[{"0.124145786", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.966666667", ",", " ", 
         RowBox[{"0.211845103", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.925925926", ",", 
         RowBox[{"0.315489749", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.886111111", ",", 
         RowBox[{"0.386104784", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.858333333", ",", " ", 
         RowBox[{"0.427107062", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.823148148", ",", " ", 
         RowBox[{"0.466970387", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.767592593", ",", " ", 
         RowBox[{"0.51594533", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.734259259", ",", " ", 
         RowBox[{"0.541002278", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.699074074", ",", " ", 
         RowBox[{"0.561503417", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.652777778", ",", " ", 
         RowBox[{"0.583143508", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.598148148", ",", " ", 
         RowBox[{"0.60022779", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.555555556", ",", " ", 
         RowBox[{"0.61047836", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.521296296", ",", " ", 
         RowBox[{"0.617312073", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.462962963", ",", " ", 
         RowBox[{"0.630979499", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.405555556", ",", " ", 
         RowBox[{"0.648063781", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.37037037", ",", " ", 
         RowBox[{"0.662870159", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.312037037", ",", " ", 
         RowBox[{"0.690205011", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.277777778", ",", " ", 
         RowBox[{"0.709567198", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.233333333", ",", " ", 
         RowBox[{"0.739179954", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.185185185", ",", " ", 
         RowBox[{"0.776765376", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.140740741", ",", " ", 
         RowBox[{"0.814350797", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.092592593", ",", " ", 
         RowBox[{"0.86332574", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.072222222", ",", " ", 
         RowBox[{"0.886104784", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.027777778", ",", " ", 
         RowBox[{"0.946469248", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0", ",", " ", 
         RowBox[{"1", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "parallel", " ", "Hc2", " ", "at", " ", "1", "%", " ", "resistance", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], ",", 
     RowBox[{"Tesla", ";", " ", 
      RowBox[{"rescaled", " ", "as", " ", 
       RowBox[{"T", "/", "Tc"}], " ", "and", " ", 
       RowBox[{"B", "/", "Bp"}]}]}]}], "*)"}], "\[IndentingNewLine]", 
   StyleBox[
    RowBox[{
     RowBox[{"data", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.02054", "/", "Tc"}], ",", 
          RowBox[{"0.516", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.02691", "/", "Tc"}], ",", " ", 
          RowBox[{"0.522", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.0338", "/", "Tc"}], ",", " ", 
          RowBox[{"0.518", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.04538", "/", "Tc"}], ",", " ", 
          RowBox[{"0.512", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.05884", "/", "Tc"}], ",", " ", 
          RowBox[{"0.496", "/", "Bp"}], "\:ff0c", "0.02"}], "}"}], ",", "\n", 
        
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.0732", "/", "Tc"}], ",", " ", 
          RowBox[{"0.472", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.08186", "/", "Tc"}], ",", " ", 
          RowBox[{"0.466", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.09083", "/", "Tc"}], ",", " ", 
          RowBox[{"0.448", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.10246", " ", "/", "Tc"}], ",", " ", 
          RowBox[{"0.426", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.11219", " ", "/", "Tc"}], ",", " ", 
          RowBox[{"0.402", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.11831", " ", "/", "Tc"}], ",", " ", 
          RowBox[{"0.386", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.12551", " ", "/", "Tc"}], ",", " ", 
          RowBox[{"0.364", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.14579", "/", "Tc"}], ",", " ", 
          RowBox[{"0.316", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.15083", "/", "Tc"}], ",", " ", 
          RowBox[{"0.31", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.16685", "/", "Tc"}], ",", " ", 
          RowBox[{"0.26", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.1869", "/", "Tc"}], ",", " ", 
          RowBox[{"0.206", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.21828", "/", "Tc"}], ",", " ", 
          RowBox[{"0.102", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.23", "/", "Tc"}], ",", " ", 
          RowBox[{"0", " ", "0"}], ",", "0.02"}], "}"}]}], "}"}]}], ";"}],
    FontSize->16], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"multiband", " ", "parameters"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda11", "=", "3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda22", "=", "0.65"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda12", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     StyleBox["a1",
      FontSize->16], 
     StyleBox["=",
      FontSize->16], 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["+",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", "=", 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["-",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a0", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "\[Times]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"lamda11", "\[Times]", "lamda22"}], "-", 
          SuperscriptBox["lamda12", "2"]}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"betaf1", "=", "2.12"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "beta_so", " ", "for", " ", "the", " ", "major", " ", "band", "*", "in", 
      " ", "unit", " ", "of", " ", "2.1", "*", "Tc"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"betaf2", "=", "0.01"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{"beta_so", " ", "for", " ", "the", " ", "major", " ", "band"}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"scalef", "=", "4.27"}], ";", " ", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
      "coefficients", " ", "related", " ", "to", " ", "Lande", " ", "g"}], 
      "-", "factor"}], "*)"}], 
    RowBox[{"(*", 
     RowBox[{"Bp", "=", 
      RowBox[{"scalef", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"arf", "=", "0.36"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "Rashba", " ", "SOC", " ", "for", " ", "the", " ", "major", " ", 
      "band"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"roupf", "[", "x_", "]"}], ":=", 
     RowBox[{"0.5", "\[Times]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Sqrt]", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", "*", "scalef"}], "+", "arf"}], ")"}], "2"], "+", 
           SuperscriptBox["arf", "2"], "+", 
           SuperscriptBox["betaf1", "2"]}], ")"}]}], "+", 
        RowBox[{"\[Sqrt]", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", "*", "scalef"}], "-", "arf"}], ")"}], "2"], "+", 
           SuperscriptBox["arf", "2"], "+", 
           SuperscriptBox["betaf1", "2"]}], ")"}]}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"roumf", "[", "x_", "]"}], ":=", 
     RowBox[{"0.5", "\[Times]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Sqrt]", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", "*", "scalef"}], "+", "arf"}], ")"}], "2"], "+", 
           SuperscriptBox["arf", "2"], "+", 
           SuperscriptBox["betaf1", "2"]}], ")"}]}], "-", 
        RowBox[{"\[Sqrt]", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", "*", "scalef"}], "-", "arf"}], ")"}], "2"], "+", 
           SuperscriptBox["arf", "2"], "+", 
           SuperscriptBox["betaf1", "2"]}], ")"}]}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ff1", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{"0.5", "\[Times]", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "\[Times]", 
             SuperscriptBox["arf", "2"]}], "+", 
            SuperscriptBox["betaf1", "2"], "-", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "*", "Bp"}], ")"}], "*", "scalef"}], ")"}], 
             "2"]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"roupf", "[", 
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "]"}], "2"], "-", 
            SuperscriptBox[
             RowBox[{"roumf", "[", 
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "]"}], "2"]}], ")"}]}]}], 
        ")"}], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             RowBox[{"roupf", "[", 
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "]"}], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}], "+", 
      RowBox[{"0.5", "\[Times]", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "\[Times]", 
             SuperscriptBox["arf", "2"]}], "+", 
            SuperscriptBox["betaf1", "2"], "-", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "*", "Bp"}], ")"}], "*", "scalef"}], ")"}], 
             "2"]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"roupf", "[", 
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "]"}], "2"], "-", 
            SuperscriptBox[
             RowBox[{"roumf", "[", "x", "]"}], "2"]}], ")"}]}]}], ")"}], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             RowBox[{"roumf", "[", 
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "]"}], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ff2", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["scalef", "2"], "\[Times]", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"x", "*", "Bp"}], ")"}], "2"]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["betaf2", "2"], "+", 
           RowBox[{
            SuperscriptBox["scalef", "2"], "\[Times]", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}], ")"}]}], ")"}], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["betaf2", "2"], "+", 
                  RowBox[{
                   SuperscriptBox["scalef", "2"], "\[Times]", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}], ")"}]}], ")"}],
               "/", 
              RowBox[{"(", 
               RowBox[{"2", " ", "\[Pi]", " ", "tt"}], ")"}]}], ")"}]}]}], 
          "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"aa", "=", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"a0", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}], "\[Times]", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a1", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a2", "*", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}]}], "\[Equal]", "0"}], ",", 
       RowBox[{"{", 
        RowBox[{"tt", ",", "0.05", ",", "1.0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "1.5"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"aa", ",", 
       RowBox[{"ListPlot", "[", 
        RowBox[{"Take", "[", 
         RowBox[{"data", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"Length", "[", "data", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Take", "[", 
          RowBox[{"dataFFLO", ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", 
             RowBox[{"Length", "[", "dataFFLO", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2"}], "}"}]}], "]"}], ",", 
         RowBox[{"ColorFunction", "\[Rule]", "\"\<Rainbow\>\""}]}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<T/\!\(\*SubscriptBox[\(T\), \(c\)]\)\>\"", ",", 
        "\"\<B/\!\(\*SubscriptBox[\(B\), \(p\)]\)\>\""}], "}"}]}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.772419916251615*^9, 3.7724199183569927`*^9}, {
   3.77253078372535*^9, 3.772531007158389*^9}, 3.7725362577367554`*^9, {
   3.772536665758029*^9, 3.7725366666627455`*^9}, {3.7725367833937044`*^9, 
   3.7725367927475843`*^9}, {3.772536852313642*^9, 3.7725368622318525`*^9}, {
   3.7725371071856365`*^9, 3.772537118450636*^9}, {3.7741998794862394`*^9, 
   3.7741998984165792`*^9}, {3.774199931587413*^9, 3.774199932042812*^9}, 
   3.774199964253389*^9, {3.788756792320937*^9, 3.78875681732372*^9}, {
   3.7887568962703953`*^9, 3.7887569300775642`*^9}, {3.78877956977055*^9, 
   3.7887796769184217`*^9}, {3.788779712042163*^9, 3.788779818377351*^9}, {
   3.7887798745762997`*^9, 3.788779905048731*^9}, {3.788779954731044*^9, 
   3.788780042656125*^9}, {3.788780308904337*^9, 3.788780309413763*^9}, {
   3.7887829340673027`*^9, 3.78878293561707*^9}, {3.788783558977191*^9, 
   3.788783602394796*^9}, {3.788783654301474*^9, 3.788783660204278*^9}, {
   3.788783733005715*^9, 3.788783756332056*^9}, {3.788783804059087*^9, 
   3.788783849416965*^9}, 3.788784145408072*^9, 3.788786071015373*^9, {
   3.788787356847734*^9, 3.78878740011574*^9}, {3.788787493579212*^9, 
   3.788787520408902*^9}, {3.7887876436044407`*^9, 3.7887876441064243`*^9}, {
   3.788787853305057*^9, 3.788787875943061*^9}},
 CellLabel->
  "In[2285]:=",ExpressionUUID->"1c94dbe4-2c54-4a00-ba5e-4db098c72887"],

Cell[BoxData[
 GraphicsBox[{{GraphicsComplexBox[CompressedData["
1:eJxVVwtYjNkfLiUlXYR2o1y6sVHb2qykvEtF2W7oYm0XhSJJ7mtFESvCKrdu
CkVXXbamUE0zNV2nlIpuRk2X6TaXZj5Li/L/jNl5nv95zjzfvM/3Pee85/29
v985Z4nfwa17psnIyLDJ35fnzVPrRiPONkBG0ian/1KRf6oBV0yP5l9POYxE
/b+HrCwb8NN9rpkrJw7dUUIbv58a0F10gOwJyMk6eM7FtAEBk+8dQrwT0bZe
h+wNyNbNtJaTS8Zpzs3rVZ1M6NvHkD0V7qKFinlJTLzpldHIzk/D3fuH/+i7
zUTAWGSjsk46mEuPe9C2MCXjZ+GYywyyM2FX7UtrN83BLTur98E19XDODclp
35EHF7r1Xrf4eoiH18+Hpo9wno+wDh7bLJWWXS3AtQkHo8yGOjyzs0j3XliI
WAtt+/L0OgmfQhR/maa7FlfoSZ6Lu4rwvVNU0Y/ZtdBZFzqLFViM7aFVHqFV
NaB2GIS88n4K6w6tf2wCa+B+4FVKhuMzzNpzp8a+vlrCtwT/Xs6duJxbjRtR
o8Zt8SVYsP+o5zOFaijo269yrS5FfNyXVoUx/zDTbVvLoFXJ4DyIYUA35qb5
4mwq1qZHWKRHMADz3M6kCioOrShc7n+GgeG8X2Vb66n4JcWqUBjMgHi6bipe
i/9UYpvenEDRUDm8NpdvwPsKvG3UvcRYRkNt0IMatY4KrN4WqL3JnIbTX5bj
UYE8jScV+/bR4F76w5jfBB3jjq5p767ScONI5qaVf9GRtDNs975MGhaKA0pH
cJCPc2UlDfbPXcZpqnQ0q1215bXSEM1JYJjb0LB3rX+AwRQN1L7lZKfhjfE9
53R5Oir8ezL3zadB69GnyI+KdOiIxytHfNucpYu06Xi73vanmXSqJH50tNxa
ww1aTcWv9MOROcZ0yXhULNCoXq5mQsfOi6wPzEVU1OnIX9AhsUukZueofilO
vbQ+VUzy/OriUnxn7zKjmsT99N9sI16XoJNSEHL7Zzp+b6CuSZ94Cv/IsLr9
5PsNYkJPsUnhsYI9+f6RUYfCZMFTJJbt1hJY0aHKDOiXzSvGHnmXoCIjOs5b
fAlQMfhpzctWkbh66sHyMr9iKf+r8TPXGadR0FdCd6NPI99/kTuUgu8Mh0/H
kbgyrkbZy4kCV/atBFsZOtyz8m6UsvLx8/SEoF0xNGyW+PiSSt6Poks0HJ37
YxFjWR4CLRnRNV4kHtQ/yDyeDVNbNaWlcjSJnzJwzuedmvnFcil+2BY1FLOW
ANthcnhkbSac5GR+0V1P4FNi5J/ZRlkQT2NP4BtxvjyGf3DkuLIvgfnJ8jfs
gnLh/VmJ6niAQEWruqdzd95XXcMJKb9GSzu33PMEvJo0thYE/A3/eYbLJ24T
UBQnbAEe8a98nplKIMl8Rw13uBBiuxYRUGE8itnuSAH1em3xmRJCqk/iHKeN
mWUEauWW2bDGKHCYpt38mk5g4frDeat7i1Adz3CPrSek+m8wZK2YaibgKTeo
dP7aE+jz1s6ZfEUg3VAz8PzMp3Aencd+0UlI42taalFAsAhYRTNy//V+hr1Z
7XXTegmY7Fed65NYgo0t17nsfkLqn/4HWrfbBwgEPTmYqOBeijSbZzFrBkn9
3Gt+2NJTRvow8MwyDiH15/w1/SxdElsITVblhFKxRbn+aRn5fe/TzjtZ/HJY
Dt/N8ugnpPnhqXpB16+PgKvvYur8YBoylNxmPyT5nCgNjV3OI3HYsJ8syfe/
/PtDx3SXYRcB2cs5nJo2OlK8hH6vWwlpPse0zDD91Egg2ezi+3zzSliiy34r
qd9/9eHuqYkefyqBLcatRyIuV+I9uz7qcikBm+sN5w06K6Xx+a8+nT2vPVlH
xpNtPv+c8eNqbH2wIjwyjJDWQwXbitEj/gQOOTce3i2qlfqp5Phbl4+JdUif
vTcr1JzA2WzW0eCZTMw9G5+aNZuQ7g9V47qnY9+KsE153qGJgw045TZrlDYm
QoG9erqzbKOkvomgLt+1RO/HJrzrW1IymCCCuDxaNIObMPdY1DERhs4dndR7
1ww579Ql6ptF6C9QCd+1vAWfxU2Iu9dLmqqcW+D/Te6R2e+F8Be3Fvw1Z/Kk
k1CIJl/Z7rzqFrD8469NdgqRxFVvHExvxS0D9oWeFKFkn2iDxslq/zOBQsxI
9njFlX2J781OUlNchBDTSX+Jb6Yu9kwsFSLkfiSfUvQSdmJBhKjtPBA/tuMV
1lHcCnZPjuOrXV7hzWvZ1K6BcTSpWt/cFN6OILH+45Cjdys5FLYjlCFY5ZA5
DhUV3+lzt3dgxrsLixnnxnFPdZTsHSjxvxc45DMO+ziOyNe5E9FiouP45LXW
+0NgF+wXBy1Knz4O7y/pPa8bDkoPLU8UC3B35ffWl2u6Yftn0qyUAAGMndT1
yv95DYpYbz6Yxadm5OizgKs/xAYy+NAWB4wF/Zg4Q7MiPj6eUbtkS2EhbfWw
+uZwPizsbR8UnXsDZqtWI2cJH13iwPWg9OXqkMx8HtRrUy6psnvAPV+beD+M
B5ZjjL+hW69EHx7K1t3uuJHcC8U7p/uMWFw0iFsvrGWuLGjM5eJ3d4rqLic2
LK6fsd5mwUXfd3VKyafZMHQx2uSrwoVYzj42eCss7q1+PAZhfW9o1Sc26Ftm
9TXdHoPOiko1DaM+Ca8x3KrU+xCY2YfNG1JX6IpGId6uJ/qQlPzRM/fBKAr3
5FYZePRjap73oKzDKLw83yYVjvdL4jOCCl3Vb2umDYCyJOF7g9QRjIgDMoCL
sffMjO+QmJGreMRmALlBT8J7fUew4zFlWU/2APzit0d1/zssWfcgVlLdo/ef
Gob9P0+sTNwGkddD/5XmMAwtkX7JguRBiX+HMCEmOIhw94qw2fwhbF3pGB73
cRDzD5tbZCQOIU1sQA7OxjMUd28fAlcYfVdzP0cyzxCqjj0y4yRzkKYqG7Jm
hIMg/l9+10yGJPnKgabph6sv1w/ht6MFLSorOVAQ1+8huCwZmXlyEQfBMwU5
gZQhPNGJSS3JGISb95TrdPYQ7kX4OkUdH8QecT4No3RptrZ88wBYxP3UaaeH
obzA8+QnygAeNe9aqRE/LMmjARRfU7Z8OW8EOx/zrh0gdWWI6/8Ipn/MuMPz
7ce3f+wIX5M1gkK1kOYjBv3I3mhzaQZ7RFIP+pDY88FnxHIUmUl7Eu659kFP
PO4oeg6f6LrYxCbrpcv1xPpReBp11J8lfbKxfGBav9yYZH9mY19jXa6i6xh0
8/R490nfnRPn7xjcep9fWqHci3iVk2vZHWPYorgwQP1YD+hJjtFb5bmS+d8g
teDA5vbtXDC9KpRDElhgiw3IxbqHt40U5F6jnJCfHtfKRUGTvtvO/G54sm62
rR7gSs6H3bBxDDyks4mH3OqZtRvKOjGXeUH+uR0P3gVtWvWUTqznKTz0eMiT
7EMd6K/zU1xZzMNI2pU9j1Pb8bN4P+OBahbRvk2hHZpaB+9qLuIjcLdOuXLY
S5hS3KP/sOdL69b4l/T34WNHk+CComob5n1s1FMj8zY1ec3ia9atsN3h6FNb
ykcr0/3bqIIX2F/KZnW84Ev0eoG/fYblFDv5qE72W/ec3yypP3wUDzVb9QQ3
Y8F3ptGLZwkk+jxHBCduSfQyATL2XvslYqIBTnSWRi8EkvUzof3ctTxpnwA8
g8hcFbtaeJmYaCodFMA11kDfsKsGurE7y0xuCiT8GcgwdifUMgQQRv+dZHag
Ag7jdnUDDAEGFv72Yct2Kh53cqy2Nguk5+8T2QGfP7wSYOVl+aSYgKe4eSH4
2UivAD6pG3PezS9C7NTz41aDAun5v6dwKlZ1WICYUp52564CGFWYWQbxBNL7
hJboUI6BQADn5M33853zsMfL5IRAJMAz1tBvjOJs1C/cqKPzViC9r6y6U/ZC
5h8BtLUzwzkemXhzK8unZUKAllGm3/1ND6Fxc7Voy78C6X0o7IpCYx6J08eZ
2gOiFAie7ChjfxJg/Ke6aTbKiTiv3a6pOCmQ3rfs5ZlH9Uicwzu0UJcVD4oe
p83yswA/ZNvo0p9FYfvUR876z/99HwVusZWiLYmj5z+wGdGLwoS4rgi++mtv
h+X/YbL9D9m1Iik=
     "], {{}, {}, 
      TagBox[
       TooltipBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
          18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
          35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
          52, 53, 54, 55, 56, 57, 58, 59, 60, 61}], 
         LineBox[{62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 
          77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 
          94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108,
           109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 
          122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 
          135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 
          148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 
          161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 
          174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 
          187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 
          200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 
          213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225}]},
        RowBox[{
          RowBox[{
            RowBox[{"0.07984536437142165`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  FractionBox[
                   RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"0.0001`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    TagBox["tt", HoldForm]}]]}]}], "]"}], "]"}]}], ")"}]}], 
                   RowBox[{
                    RowBox[{"0.0001`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], ")"}]}], "+", 
            RowBox[{"1.9201546356285784`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"4.7536000000000005`", "\[VeryThinSpace]"}], "-", 
                    
                    RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.36`"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.36`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "-", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.36`"}], "+", 
                    RowBox[{"4.27`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.36`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"4.27`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.36`"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.36`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"4.7536000000000005`", "\[VeryThinSpace]"}], "-", 
                    
                    RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "0.25`"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.36`"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.36`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "+", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.36`"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.36`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.36`"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.36`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}], "+", 
            RowBox[{"1.3312875579307093`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  FractionBox[
                   RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"0.0001`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    TagBox["tt", HoldForm]}]]}]}], "]"}], "]"}]}], ")"}]}], 
                   RowBox[{
                    RowBox[{"0.0001`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], ")"}], " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"4.7536000000000005`", "\[VeryThinSpace]"}], "-", 
                    
                    RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.36`"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.36`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "-", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.36`"}], "+", 
                    RowBox[{"4.27`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.36`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"4.27`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.36`"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.36`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"4.7536000000000005`", "\[VeryThinSpace]"}], "-", 
                    
                    RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "0.25`"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.36`"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.36`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "+", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.36`"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.36`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.36`"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.6240000000000006`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.36`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.826706`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}]}], "\[Equal]", "0"}]],
       Annotation[#, 0.07984536437142165 (Log[
             HoldForm[$CellContext`tt]] + 
           3.336854810436 
            HoldForm[$CellContext`x]^2 (0.0001 + 
              3.336854810436 HoldForm[$CellContext`x]^2)^(-1) (
             1.9635100260214235` + Re[
               PolyGamma[0, 0.5 + Complex[0, 
                   Rational[1, 2]] Pi^(-1) 
                 HoldForm[$CellContext`tt]^(-1) (0.0001 + 
                   3.336854810436 HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) + 1.9201546356285784` (Log[
             HoldForm[$CellContext`tt]] + 
           0.5 (1 + (4.7536000000000005` - 3.336854810436 
               HoldForm[$CellContext`x]^2)/(
              0.25 ((4.6240000000000006` + (-0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^
                  Rational[1, 2] + (
                   4.6240000000000006` + (0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^Rational[1, 2])^2 - 
              0.25 (-(4.6240000000000006` + (-0.36 + 
                    4.27 HoldForm[$CellContext`x])^2)^Rational[1, 2] + (
                  4.6240000000000006` + (0.36 + 
                    4.27 HoldForm[$CellContext`x])^2)^Rational[1, 2])^2)) (
             1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) (-(
                    4.6240000000000006` + (-0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^Rational[1, 2] + (
                    4.6240000000000006` + (0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^Rational[1, 2])]]) + 
           0.5 (
             1 - (4.7536000000000005` - 3.336854810436 
              HoldForm[$CellContext`x]^2)/((-0.25) (-(
                   4.6240000000000006` + (-0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^Rational[1, 2] + (
                  4.6240000000000006` + (0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^Rational[1, 2])^2 + 
             0.25 ((4.6240000000000006` + (-0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^
                 Rational[1, 2] + (
                  4.6240000000000006` + (0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^
                 Rational[1, 2])^2)) (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) ((
                    4.6240000000000006` + (-0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^
                   Rational[1, 2] + (
                    4.6240000000000006` + (0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^Rational[1, 2])]])) + 
         1.3312875579307093` (Log[
             HoldForm[$CellContext`tt]] + 
           3.336854810436 
            HoldForm[$CellContext`x]^2 (0.0001 + 
              3.336854810436 HoldForm[$CellContext`x]^2)^(-1) (
             1.9635100260214235` + Re[
               PolyGamma[0, 0.5 + Complex[0, 
                   Rational[1, 2]] Pi^(-1) 
                 HoldForm[$CellContext`tt]^(-1) (0.0001 + 
                   3.336854810436 HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) (Log[
             HoldForm[$CellContext`tt]] + 
           0.5 (1 + (4.7536000000000005` - 3.336854810436 
               HoldForm[$CellContext`x]^2)/(
              0.25 ((4.6240000000000006` + (-0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^
                  Rational[1, 2] + (
                   4.6240000000000006` + (0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^Rational[1, 2])^2 - 
              0.25 (-(4.6240000000000006` + (-0.36 + 
                    4.27 HoldForm[$CellContext`x])^2)^Rational[1, 2] + (
                  4.6240000000000006` + (0.36 + 
                    4.27 HoldForm[$CellContext`x])^2)^Rational[1, 2])^2)) (
             1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) (-(
                    4.6240000000000006` + (-0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^Rational[1, 2] + (
                    4.6240000000000006` + (0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^Rational[1, 2])]]) + 
           0.5 (1 - (4.7536000000000005` - 3.336854810436 
              HoldForm[$CellContext`x]^2)/((-0.25) (-(
                   4.6240000000000006` + (-0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^Rational[1, 2] + (
                  4.6240000000000006` + (0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^Rational[1, 2])^2 + 
             0.25 ((4.6240000000000006` + (-0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^
                 Rational[1, 2] + (
                  4.6240000000000006` + (0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^
                 Rational[1, 2])^2)) (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) ((
                    4.6240000000000006` + (-0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^
                   Rational[1, 2] + (
                    4.6240000000000006` + (0.36 + 
                    1.826706 HoldForm[$CellContext`x])^2)^Rational[1, 2])]])) == 
        0, "Tooltip"]& ]}], {}}, {{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{0.08930434782608695, 1.20617110799439}, {
       0.11699999999999999`, 1.2201963534361853`}, {0.1469565217391304, 
       1.2108461898083216`}, {0.19730434782608694`, 1.1968209443665265`}, {
       0.3182608695652174, 1.1033193080878916`}, {0.35591304347826086`, 
       1.0892940626460963`}, {0.39491304347826084`, 1.0472183263207107`}, {
       0.44547826086956516`, 0.9957924263674615}, {0.48778260869565215`, 
       0.9396914446002805}, {0.5143913043478261, 0.9022907900888266}, {
       0.545695652173913, 0.8508648901355773}, {0.6338695652173912, 
       0.7386629266012156}, {0.6557826086956521, 0.7246376811594203}, {
       0.7254347826086956, 0.6077606358111267}, {0.8126086956521739, 
       0.4815334268349696}, {0.9490434782608695, 0.23842917251051893`}, {1., 
       0.}}]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, {{}, 
    GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQDQEf7GEs2yTrTeemvrf/3rGut9rzmD3/fpn37969
s+/TmcLxm/myfTBHWIb+wrf2/OcONS0IvGMfcMB7A2v0G/vsD/6HVUIe2kcs
9ywvL39t38hbzmer/dj+S8fbE1bhr+xXyTwPs//6xD7peFG43IQX9lM4uzd8
VH9uLyjG5sZb/9yesX3HvavuL+zXfl85/ULcM/tuUR+WJOOX9j8lmCz7Hj+x
F35/VZtF55X9wdBdU9lVHtvvvHnUy+/DK/uPhixFMscf2pczfYgVSXtt/0Lw
9sTSdQ/sA9rLsmZseQ1171175onNzQsC39h7nsrzmv/lpv3y6uJFr0Tf2h9e
s/iN6pbr9qEXyvZyHHhr7z7R2TDrx2X7nY8nvJf49Q5q/kV7T3U94f4b7+3j
56rdvXv3rH1QxqwlqdM+QPUft09uszkekPfRfs/y589PMR+y/+NU99La7ZO9
Q97Jd6pbttsXWgaITY3/bH/lYsdF9dpN9jprC7QLH322F5d3VjheOMeetaYo
ycL2KzweXmdOnLy34Jv9aPwM7vgBALlZi78=
     "], {{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18, 19, 20, 21, 22, 23, 24, 25, 26},
         VertexColors->Automatic]}}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
       1.6]}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
        1.6]}, {}}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
        1.6]}, {}}},
     VertexColors->CompressedData["
1:eJzt0v0v1AEAx/E7Mg+bpYZl5GE6ylPKhVa3jzDrJISWW+uB+U6swjrFPOUh
ZQ1TJto8rTwtMqXN5pyru8NJ5nAcHdcdd1/30Dykh3lI/op+8sP79/cPL6f4
lCjCgEKh0Hcz3G31POdsrfs8fDu17dbSXizslLVGzn1DNj2GmmozhtyeLaFb
2wjYcuYxj4olNLNE0R3uY+CbBnONMIulYP+LtmsaaMiRmBXuBJjb9tVPpEqc
sL5ZX1RMQt58N8JINg1z42t2FlDBWz2c5WyxCEFyvq5MOIsckmvL91XD++hf
n5kZBUR+wkveJvPowlDchkKNfV42B2XP5KikbByWnVSgPN+i/koGiaRMn+5N
2Sz6j3MSWLeU+NPzvqq1iUSgeZB1/0cp3mqqYiuIBUSlGYRyhkkwGl1yS02m
kbtt3hKfuYjhvkNmOSISy4P2D552SXB9JMLyfrQKDR51m78GSNAI2sLtlkmE
neKUhE+pIGyOYt0TkqCoVpd5xpMAP7GgxFMNQyen76kCEsHtLuHhtRNochj0
n5Co0RmXqMl/R6JJ4OiRrhmHZ15Gd1Dd7vcKbhQWkHCQs4lPjHEIPoQUb1xY
ArunxlQXS+LyXOO59VYxHnYkpBOPNDgTmVcuo5JI9Cln+jWM4U2Y8VQSXYsX
r7uEW/lq8JTS3+a0MZQSDE/rAB1Y5YYhyVwVxIzqyDjxKDhaBYtN08OKzXt5
J3ARMRtmcr7XF1i19RWVSvTgt1gcCHisRKUi5ae0/jPqXxVWX1XosW4bmmVb
PQ9He0Jn5ibCBIce4MrTg1yTaAdOfwXTjiiJlg3C2Z3yfD9Vj964yK7BEDFG
u6k/IowE0I4wjmSn6NBe4zptOcSDKCFtp0LDw563PW//09s/rdh+4Q==
      "]], {{}, {}}}},
  AspectRatio->1,
  AxesLabel->{None, None},
  AxesOrigin->{0.05, 0.},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
    "\"T/\\!\\(\\*SubscriptBox[\\(T\\), \\(c\\)]\\)\"", TraditionalForm], 
    FormBox[
    "\"B/\\!\\(\\*SubscriptBox[\\(B\\), \\(p\\)]\\)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "GridLinesInFront" -> 
    True},
  PlotRange->{{0.05, 1.}, {0, 1.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7887799897780943`*^9, {3.788780021043556*^9, 3.788780047031931*^9}, 
   3.788780283721051*^9, {3.788782920373466*^9, 3.788782944126666*^9}, 
   3.78878368128533*^9, 3.78878390430511*^9, 3.78878415154496*^9, {
   3.788787358931118*^9, 3.788787400876383*^9}, {3.788787495079517*^9, 
   3.788787521524003*^9}, 3.788787645265422*^9, {3.788787856031357*^9, 
   3.7887878767681103`*^9}},
 CellLabel->
  "Out[2300]=",ExpressionUUID->"c2fae51d-f3e0-43b2-a370-eeddd6a1acb9"]
}, Open  ]],

Cell["", "PageBreak",
 PageBreakBelow->True,ExpressionUUID->"1cbbe7e0-9aba-4bae-99d9-ac3eb9750f1d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", 
    RowBox[{"2", "-", 
     RowBox[{"Sn", "/", "15"}], "-", 
     RowBox[{"PbTe", " ", "without", " ", "Rashaba"}]}], "*)"}], "Title"], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Tc", "=", "0.23"}], ";", 
    RowBox[{"(*", 
     RowBox[{"Tc", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Bp", "=", 
     RowBox[{"1.86", "*", "Tc"}]}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Pauli", " ", "limit", " ", "Bp"}], "=", 
     RowBox[{"1.86", "*", "Tc"}]}], "*)"}], 
   RowBox[{"(*", 
    RowBox[{"parallel", " ", "field"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "parallel", " ", "Hc2", " ", "at", " ", "1", "%", " ", "resistance", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], ",", 
     RowBox[{"Tesla", ";", 
      RowBox[{"rescaled", " ", "as", " ", 
       RowBox[{"T", "/", "Tc"}], " ", "and", " ", 
       RowBox[{"B", "/", "Bp"}]}]}]}], "*)"}], "\[IndentingNewLine]", 
   StyleBox[
    RowBox[{
     RowBox[{"data", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.02054", "/", "Tc"}], ",", 
          RowBox[{"0.516", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.02691", "/", "Tc"}], ",", " ", 
          RowBox[{"0.522", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.0338", "/", "Tc"}], ",", " ", 
          RowBox[{"0.518", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.04538", "/", "Tc"}], ",", " ", 
          RowBox[{"0.512", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.05884", "/", "Tc"}], ",", " ", 
          RowBox[{"0.496", "/", "Bp"}], "\:ff0c", "0.02"}], "}"}], ",", "\n", 
        
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.0732", "/", "Tc"}], ",", " ", 
          RowBox[{"0.472", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.08186", "/", "Tc"}], ",", " ", 
          RowBox[{"0.466", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.09083", "/", "Tc"}], ",", " ", 
          RowBox[{"0.448", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.10246", " ", "/", "Tc"}], ",", " ", 
          RowBox[{"0.426", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.11219", " ", "/", "Tc"}], ",", " ", 
          RowBox[{"0.402", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.11831", " ", "/", "Tc"}], ",", " ", 
          RowBox[{"0.386", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.12551", " ", "/", "Tc"}], ",", " ", 
          RowBox[{"0.364", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.14579", "/", "Tc"}], ",", " ", 
          RowBox[{"0.316", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.15083", "/", "Tc"}], ",", " ", 
          RowBox[{"0.31", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.16685", "/", "Tc"}], ",", " ", 
          RowBox[{"0.26", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.1869", "/", "Tc"}], ",", " ", 
          RowBox[{"0.206", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.21828", "/", "Tc"}], ",", " ", 
          RowBox[{"0.102", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.23", "/", "Tc"}], ",", " ", 
          RowBox[{"0", " ", "0"}], ",", "0.02"}], "}"}]}], "}"}]}], ";"}],
    FontSize->16], 
   StyleBox["\[IndentingNewLine]",
    FontSize->16], 
   RowBox[{"(*", 
    RowBox[{"multiband", " ", "parameters"}], "*)"}], 
   StyleBox["\[IndentingNewLine]",
    FontSize->16], 
   RowBox[{
    RowBox[{"lamda11", "=", "3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda22", "=", "0.6"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda12", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     StyleBox["a1",
      FontSize->16], 
     StyleBox["=",
      FontSize->16], 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["+",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", "=", 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["-",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a0", "=", 
     FractionBox[
      RowBox[{"2", "\[Times]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"lamda11", "\[Times]", "lamda22"}], "-", 
         SuperscriptBox["lamda12", "2"]}], ")"}]}], 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         StyleBox[
          RowBox[{"(", 
           RowBox[{"lamda11", "-", "lamda22"}], ")"}],
          FontSize->16], "2"], "+", 
        RowBox[{"4", "\[Times]", 
         SuperscriptBox["lamda12", "2"]}]}]]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"betaf1", "=", "2.12"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "beta_so", " ", "for", " ", "the", " ", "major", " ", "band", "*", "in", 
      " ", "unit", " ", "of", " ", "2.1", "*", "Tc"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"betaf2", "=", "0.01"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{"beta_so", " ", "for", " ", "the", " ", "major", " ", "band"}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"scalef", "=", "4.27"}], ";", " ", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
      "coefficients", " ", "related", " ", "to", " ", "Lande", " ", "g"}], 
      "-", "factor"}], "*)"}], 
    RowBox[{"(*", 
     RowBox[{"Bp", "=", 
      RowBox[{"scalef", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ff1", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["scalef", "2"], "\[Times]", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}], 
        RowBox[{
         SuperscriptBox["betaf1", "2"], "+", 
         RowBox[{
          SuperscriptBox["scalef", "2"], "\[Times]", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["betaf1", "2"], "+", 
               RowBox[{
                SuperscriptBox["scalef", "2"], "\[Times]", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ff2", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["scalef", "2"], "\[Times]", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}], 
        RowBox[{
         SuperscriptBox["betaf2", "2"], "+", 
         RowBox[{
          SuperscriptBox["scalef", "2"], "\[Times]", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["betaf2", "2"], "+", 
               RowBox[{
                SuperscriptBox["scalef", "2"], "\[Times]", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"aa", "=", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"a0", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}], "\[Times]", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a1", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a2", "*", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}]}], "\[Equal]", "0"}], ",", 
       RowBox[{"{", 
        RowBox[{"tt", ",", "0.05", ",", "1.0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "1.7"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"aa", ",", 
       RowBox[{"ListPlot", "[", 
        RowBox[{"Take", "[", 
         RowBox[{"data", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"Length", "[", "data", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<T/\!\(\*SubscriptBox[\(T\), \(c\)]\)\>\"", ",", 
        "\"\<B/\!\(\*SubscriptBox[\(B\), \(p\)]\)\>\""}], "}"}]}]}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.739102175399826*^9, 3.739102196393523*^9}, {
   3.739102331187825*^9, 3.7391023454625196`*^9}, {3.739103650457354*^9, 
   3.73910365269709*^9}, {3.739147256523315*^9, 3.739147441257086*^9}, {
   3.739147472494151*^9, 3.7391474729396544`*^9}, {3.73914750866812*^9, 
   3.739147509033792*^9}, {3.739147542638554*^9, 3.7391476807340517`*^9}, 
   3.739147866946693*^9, {3.739147941115942*^9, 3.7391481850060387`*^9}, {
   3.7391482401191587`*^9, 3.739148436180442*^9}, {3.73914850242619*^9, 
   3.739148544738825*^9}, 3.739148624755075*^9, {3.7391486586343718`*^9, 
   3.739148659190963*^9}, {3.7391486909651823`*^9, 3.739148904272581*^9}, 
   3.7413482436301537`*^9, {3.741348555761228*^9, 3.741348583375167*^9}, 
   3.7413486704266*^9, {3.7413487033811293`*^9, 3.7413487470444098`*^9}, {
   3.7413489007803593`*^9, 3.741348966109733*^9}, {3.741349024760106*^9, 
   3.741349101609005*^9}, {3.741349163121254*^9, 3.74134934459652*^9}, {
   3.741349665014824*^9, 3.7413497489166193`*^9}, 3.741350312667904*^9, {
   3.7413503526499434`*^9, 3.7413503600550747`*^9}, 3.741352077078764*^9, 
   3.7413521250328217`*^9, {3.741352449773336*^9, 3.7413524502432528`*^9}, {
   3.741352488226451*^9, 3.7413525495410347`*^9}, 3.741353866327914*^9, 
   3.7413539217015944`*^9, {3.7428762449254637`*^9, 3.7428764249920797`*^9}, {
   3.742876554242976*^9, 3.742876666038617*^9}, {3.742876766670405*^9, 
   3.742877030090322*^9}, {3.742879816427549*^9, 3.742880025896957*^9}, {
   3.7428801073940887`*^9, 3.742880239921596*^9}, {3.742880275960535*^9, 
   3.7428804870971117`*^9}, {3.7428805374762278`*^9, 3.742880537969866*^9}, {
   3.74288056984235*^9, 3.742880589883847*^9}, {3.742880631217258*^9, 
   3.7428808044317513`*^9}, {3.742880927753875*^9, 3.7428811137341833`*^9}, {
   3.742881154961471*^9, 3.7428813345141163`*^9}, {3.742881388773234*^9, 
   3.7428815249260387`*^9}, {3.7428815623375463`*^9, 
   3.7428815662949753`*^9}, {3.742881598472932*^9, 3.742881674591114*^9}, {
   3.742881716033863*^9, 3.742881767090048*^9}, {3.742881932061864*^9, 
   3.7428820048369617`*^9}, {3.742882260336389*^9, 3.742882294460621*^9}, 
   3.7428823707292*^9, {3.742882418422101*^9, 3.742882418723472*^9}, {
   3.74288355939159*^9, 3.7428835598359747`*^9}, 3.742884075790196*^9, 
   3.742884106513248*^9, 3.742884147299919*^9, {3.7428841795849743`*^9, 
   3.742884186880262*^9}, {3.742884234690473*^9, 3.742884297811964*^9}, {
   3.7428849208900223`*^9, 3.7428849696372766`*^9}, {3.742958321224535*^9, 
   3.742958334639358*^9}, {3.742958382379582*^9, 3.742958436980788*^9}, {
   3.7567070104032483`*^9, 3.7567070467992916`*^9}, {3.75670708788931*^9, 
   3.756707105731181*^9}, 3.756722441832169*^9, {3.7567225295118017`*^9, 
   3.756722649032548*^9}, {3.756723141152605*^9, 3.756723331926244*^9}, {
   3.756723652329928*^9, 3.756723678654847*^9}, 3.7567239321174192`*^9, {
   3.756724076563426*^9, 3.7567241128919487`*^9}, {3.756724380647381*^9, 
   3.756724397973072*^9}, {3.75672444780532*^9, 3.7567244878639297`*^9}, {
   3.756724529338139*^9, 3.756724553807631*^9}, 3.756724597022266*^9, {
   3.756725194571013*^9, 3.75672530020536*^9}, 3.756725410200645*^9, {
   3.756725473827147*^9, 3.756725504590579*^9}, 3.756726668767209*^9, {
   3.756726706817957*^9, 3.75672674231677*^9}, {3.7567267789866457`*^9, 
   3.7567267826629744`*^9}, {3.756726815360053*^9, 3.756727119451322*^9}, {
   3.7567271629554253`*^9, 3.7567271734552298`*^9}, {3.7571175249392495`*^9, 
   3.757117538319467*^9}, {3.7571184403487234`*^9, 3.7571184474228506`*^9}, {
   3.757140172834104*^9, 3.7571401735510955`*^9}, {3.757140203578662*^9, 
   3.7571402045222387`*^9}, {3.7571402653443403`*^9, 3.757140281657219*^9}, {
   3.7571403195742855`*^9, 3.757140358495293*^9}, {3.757140397962777*^9, 
   3.757140398600673*^9}, {3.757140506443275*^9, 3.7571405219122925`*^9}, {
   3.75714111017933*^9, 3.757141110359845*^9}, {3.757141200584858*^9, 
   3.7571412157388315`*^9}, {3.7724128453251204`*^9, 
   3.7724133170241423`*^9}, {3.772413411391981*^9, 3.772413411661476*^9}, 
   3.7724134487587748`*^9, {3.772413485827916*^9, 3.772413535352851*^9}, {
   3.772413648626567*^9, 3.772413649113681*^9}, {3.7724136933721604`*^9, 
   3.772413737973016*^9}, {3.772413784934164*^9, 3.7724138221619587`*^9}, {
   3.7724138597843432`*^9, 3.7724138602561817`*^9}, {3.7724140398325586`*^9, 
   3.7724140830437136`*^9}, {3.7724141244119997`*^9, 3.772414181365361*^9}, {
   3.772414441536067*^9, 3.772414442509412*^9}, {3.7724196897171164`*^9, 
   3.77241969783792*^9}, {3.772537791760222*^9, 3.772537832303341*^9}, {
   3.772537876239146*^9, 3.7725378806292424`*^9}, {3.772537955972209*^9, 
   3.772537972532516*^9}, {3.772538041903758*^9, 3.7725380620288534`*^9}, {
   3.77253809594872*^9, 3.772538104129416*^9}, {3.788756985277927*^9, 
   3.788757005793065*^9}, {3.788779874638666*^9, 3.7887798747351427`*^9}, {
   3.788780059680155*^9, 3.788780190699616*^9}, {3.7887802317458982`*^9, 
   3.7887802448223057`*^9}, {3.7887829504193773`*^9, 3.788782952142344*^9}, {
   3.788783871701977*^9, 3.78878389523938*^9}, 3.7887841566194563`*^9, 
   3.7887860795818663`*^9, {3.788787741816568*^9, 3.7887877916908827`*^9}, {
   3.788787842617244*^9, 3.788787844143538*^9}, {3.788787882670793*^9, 
   3.78878788307438*^9}},
 CellLabel->
  "In[2301]:=",ExpressionUUID->"dbccd3c1-7f8c-4521-943b-4e0ac1518f52"],

Cell[BoxData[
 GraphicsBox[{{GraphicsComplexBox[CompressedData["
1:eJw9Vwk4lGsUlrRokZKlkNsN97aINkL1RnWj2y4iSdlKkSV13SxlSVmyXVrI
dkmWGGXPZDfWsmTLZN9nMQwxFO6YO5znn2eeM///n+9873nP+53ZbGR13pSX
h4enjP2Z+w55OWfxqJRPYJ1SzIFmTamrwckk1CwW/rORlIMHYcr7vGnJ8Dcw
6x4SIuJEoLRmoPQ7UBXburbeIUJNwGKkYvAdTnqRz0sFEeFjEyEj6PoesZ/y
b3jGELH87tlld8+movr41SOKNUQk7zVVmVFPw2zLCQXFXiJOqR944+aZhuRD
g4eJbJ900bHkomM6ai5fCaLPEmHLdM+5kJ6BHWnp38js++4qcW4qcZmwo8yK
WPF8hPOP64TgyCzwhCy2i2QQsfm33QkHu7LwfKl28tIeItQl69Uk67Px0CT3
T8lqItL1Jh7iVA5kIg2ur2Pnz8MxIvR87M+V3SCC5qPkseJfIvJs+4W3axOR
27V97sLvIb6x5PIclPr4USUy87CHYznQzvUxpkvkQz+3SDph+gP3+Xys2yB9
fzn9A8jPJNvPaeRDPKo9yOrTBxS62p5JGs/HQ0m3JwdkP2DTXHpqBajri0qw
LcuGrt6KE0XJBeCkrZaNbw2/x1CLC7Cqf0d1pEw2PlfNWQHURiWCZTZkQ4H4
qLy5owDivAE8wlNZcCqZA7AQ/ZJOoiUns3Aw6V9hs8lCLOPUIRNZjZnpMseL
MLPoy1NLUga+ZViSMyyLwNfRKi9qnYFP++uanrOK8HzrZamCK+nwIbC8CGy/
eY0/6xHbF+X3XLptsggp5neDDQ3SoTpXDrdiFFjouFVvTEPucd6SS1HFaM5x
G51tSsX2gGUBJpXFIHPWScX/fCuB/qfUvL6JFIgdYA3415agSKHG8JhWCkKY
agYJK0gwHBFmXwRMes0lQMI6vTWhFSfjcXD7K2elGhJm9MOua6vEwbQkntDU
T+Lu7w1a5PiUSvaWIiuX+Ev9s2gkCthN/NxfCvGdndoVRtG4yfwya+9Yyo0f
AfmhqU+ffUshdMbHT37ZK+jO0a+E/X7ku63K5wIgo+Fc7lg9/7wfPJiN4tSa
UmzoumgT+vkprJJOj1YPlkL3wtcKvcNXYfDKId+FVsrl1bwNL/g/ybWbBGcZ
mOqkNEUm+KLvGnXbSrY/Hz9ad5UNL9v33AyHq4/9EGy+y1/vJwPeh/wCaUfD
cUFMwnPHT8ZC/q10hQbqDwbeR4kQXGYjsCt7B21mggG/PGKaxq1YxKfovjdm
+/P4kOw8Or3GGdh/8ILTQcM42LUs3y3FZOB29JuJZ0+S0KI6ZpA8zFjAv2WL
Y+ibIQb2GtuYa7il4OWHGbVGCgNrLr99mXfoPZxZT6irBxgL9a32u1G/qouB
ygfNt1Oj0yFuE6XwsJWxwD/jL1sOjzQwIKC0ysc7IRsf1067yXxiwKT+gBPj
ILu/93saehXOr5+H1j8aEgSSGSjSD1J2bSiAIvWlGimYgZZXpHXiusX4yBud
znN3Pj67DgM7iVNnGOh/ERq0aFsFYu7wWh+RZGA6z6/X/M0nOCiZnw9aNh+/
GltYZrms6SH4zSZLO8VUI1KAwr6GoBIWaBdvWgPvJw/26xYPgdNWjrVwnSyK
i44cgrIHIXbMrA4XTjYFBtkPcff/BcNzYQ2HQCHYC9EX12PFcgVvU5UhfGg0
XVFKrsdhTmPTMegnRsrka8Iu3szvs5V0FFFjnG7uaYJJh56yB4nO3U8TmjIF
zXsi6GgVvmmpv7IZec3OhXHadGS1nydG3P4Kw9ezWlYMGlePyHgV8vehm800
tPHWfZUKIKOTI180uClIl60fI+MvsrXsem0a9vkanqsLa0VsJ/skGKFy8WjH
Bb96wi9VVKg9oLhZPGuHK0dvqchPjnkssqQD7bC5tegQFbkxOTbquR2o1vrn
TGgZhYtPJzZb2rj8kkjBm9crCZVxndiiOXdgUNCsI3TxXmUn7J3kHDqFKMiI
ExVz9+6CSFVwD+vVIEyeuG3T2tONYk6cQTS761jdvdaNVIWI8Mf2g+DRkVnT
Y9aNKzo9Orl3Brl4d4Pefaxh09cB8Hnt6eVR7YGp2ZwNwH98WFuqrAeLtv3w
vaY4ADuXaeXf+XuhMH1JTYHZD852DXsReOtm32v/ftjKnfh1rLYXSzm498M4
t23gh2gfdN2uFKkO9GF95p7Q0eA+5FUQKZfV+7j16ceRsdgWi4N9MPKb8EzQ
7sebOTlU6QMhVdjSTbcfpq8HWpbIs+/nnT69xLQftT7RvrN+vdjl4V7/TnAA
GpzztBcPqon3fB0H8GJMdqi2owcR+nnNz8oG8ODlr3tVLXu458Eg0lISL+1W
6EG0+amvvU6DGOQQtgd3LhutzmHjqKwx5qP+vBt1ts4PrUQpiOJZnXvGuRst
m13KmQoU2NkeffvDrhsc2VahgCOvrC5sf/rX23VpFBgmpf34o7ILlQcO6490
UqBcE7NP0aGLyy8qjmWuTcgS7cLanCAaTyAVHHp1dSK8ukAhvoCKb3ZbtzQZ
dyJy0dfnDmo07J18IjUt3wnpKJgI3aGBc3xVdUAgRuk7pZaGllSPnxRCB3bo
qh7uHqah2PWfAjunDnBoI03Ho83TxHhWOy4nC7b2RNLRwql7OyRk7rqv7qSj
ossq1TWwDX+718vVnBtCX621dqxXK/wfxzmV1w9BgoNbKxwsJqXDJocg6/2W
f1KuFeH/8uvL8bF1Y0ReXXB1K5f/DPyp/HpYroqMUpF30rNZDFzh/E5GWLjI
2kz+Ycj6Wxj0WrSgiUQfWLZ/GFVXdLa1a30Fp03chrn60Yxte3qL74cPQ8vW
atGS080Y0fOOvlc+DL/1n683ZTYhmN998aXRYfw/XjTibYh1rO/+EYhYJVa3
GTci8poEbURrBIwXW6Ii2hq4/TUCC0Wln9NCDQg1zgu4kjECaQ5Q9fDbu9Hw
LXkEZqUvvHzKvkDpxiPZ0o1MnDQyUJRKrMNZDmGZyPDc6UZzqYOEaMGjiy5M
cNqFrWN1TrlGBE8meAl1oZZZtQiwFE4kFzIhSPfqUVCrxdnH3uleFCY2vGcc
0JCrhQgHMCaXRzUQO9b6YvrIKA5Pax5XX1aDD/ePFZfpjGLj/cKrds+quf06
CtuA2hMqbB0uCVxObiwZBac8klXgCzHZfVxgDCHvw1OSTlVC7ScqJpTGoDtz
P/GuTQU3zzGs49sZtnNxOdIjfN/fSxpbOK9v98VZrB8aQ7hjnLR8OQkCqg36
sbLfcWPCx3a4rYTb79+xeDjFXJU9n3St5Tdqj/6+MP/cCWvS20D9Dpv6VaoD
PoUYuZxzzlFmHGKbKMfoRQXgLHNxfGFeu1Zw08jMfhyCzt81U57mI4bE31Gb
OL4wL54WUFz+q9AEImQ1iAaaH1GaaH9TSmkCMtofdYaLiVz9mEB40OlQmZhs
yITw3bIqnUBRvrV7MisL/lInH17sncAJNSGxtrYMcNpBk4VnR84eijmaAQ/F
GGtvQ9bCvDzzm/4hexcWlp+nkX33pXFxYYHPWXyLvnQqNJPFvLNnWHCnakXI
fXnH1ZPJhXnepMpLstFkEpv2CXU4y6TAPdY9PiZqEupaq63TfAhcnk5i8KiL
ruGjJESkqSefGp9EccLe3zR730K5VzZKe+UUdMVnR6piE7m8mMLrfwhMx6WJ
OJZ76xz19BTm/2/kM3V38DlM4T9gHVg2
     "], {{}, {}, 
      TagBox[
       TooltipBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
          18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
          35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
          52, 53, 54}], 
         LineBox[{55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 
          70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 
          87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 
          103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 
          116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 
          129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 
          142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 
          155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 
          168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 
          181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 
          194, 195, 196, 197, 198, 199, 200}]},
        RowBox[{
          RowBox[{
            RowBox[{"0.0769230769230771`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  FractionBox[
                   RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"0.0001`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    TagBox["tt", HoldForm]}]]}]}], "]"}], "]"}]}], ")"}]}], 
                   RowBox[{
                    RowBox[{"0.0001`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], ")"}]}], "+", 
            RowBox[{"1.923076923076923`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  FractionBox[
                   RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.494400000000001`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    TagBox["tt", HoldForm]}]]}]}], "]"}], "]"}]}], ")"}]}], 
                   RowBox[{
                    RowBox[{"4.494400000000001`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], ")"}]}], "+", 
            RowBox[{"1.192307692307692`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  FractionBox[
                   RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"0.0001`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    TagBox["tt", HoldForm]}]]}]}], "]"}], "]"}]}], ")"}]}], 
                   RowBox[{
                    RowBox[{"0.0001`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], ")"}], " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  FractionBox[
                   RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.494400000000001`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    TagBox["tt", HoldForm]}]]}]}], "]"}], "]"}]}], ")"}]}], 
                   RowBox[{
                    RowBox[{"4.494400000000001`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"3.336854810436`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], ")"}]}]}], "\[Equal]",
           "0"}]],
       Annotation[#, 0.0769230769230771 (Log[
             HoldForm[$CellContext`tt]] + 
           3.336854810436 
            HoldForm[$CellContext`x]^2 (0.0001 + 
              3.336854810436 HoldForm[$CellContext`x]^2)^(-1) (
             1.9635100260214235` + Re[
               PolyGamma[0, 0.5 + Complex[0, 
                   Rational[1, 2]] Pi^(-1) 
                 HoldForm[$CellContext`tt]^(-1) (0.0001 + 
                   3.336854810436 HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) + 1.923076923076923 (Log[
             HoldForm[$CellContext`tt]] + 
           3.336854810436 
            HoldForm[$CellContext`x]^2 (4.494400000000001 + 
              3.336854810436 HoldForm[$CellContext`x]^2)^(-1) (
             1.9635100260214235` + Re[
               PolyGamma[0, 0.5 + Complex[0, 
                   Rational[1, 2]] Pi^(-1) 
                 HoldForm[$CellContext`tt]^(-1) (4.494400000000001 + 
                   3.336854810436 HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) + 1.192307692307692 (Log[
             HoldForm[$CellContext`tt]] + 
           3.336854810436 
            HoldForm[$CellContext`x]^2 (0.0001 + 
              3.336854810436 HoldForm[$CellContext`x]^2)^(-1) (
             1.9635100260214235` + Re[
               PolyGamma[0, 0.5 + Complex[0, 
                   Rational[1, 2]] Pi^(-1) 
                 HoldForm[$CellContext`tt]^(-1) (0.0001 + 
                   3.336854810436 HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) (Log[
             HoldForm[$CellContext`tt]] + 
           3.336854810436 
            HoldForm[$CellContext`x]^2 (4.494400000000001 + 
              3.336854810436 HoldForm[$CellContext`x]^2)^(-1) (
             1.9635100260214235` + Re[
               PolyGamma[0, 0.5 + Complex[0, 
                   Rational[1, 2]] Pi^(-1) 
                 HoldForm[$CellContext`tt]^(-1) (4.494400000000001 + 
                   3.336854810436 HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) == 0, "Tooltip"]& ]}], {}}, {{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{0.08930434782608695, 1.20617110799439}, {
       0.11699999999999999`, 1.2201963534361853`}, {0.1469565217391304, 
       1.2108461898083216`}, {0.19730434782608694`, 1.1968209443665265`}, {
       0.3182608695652174, 1.1033193080878916`}, {0.35591304347826086`, 
       1.0892940626460963`}, {0.39491304347826084`, 1.0472183263207107`}, {
       0.44547826086956516`, 0.9957924263674615}, {0.48778260869565215`, 
       0.9396914446002805}, {0.5143913043478261, 0.9022907900888266}, {
       0.545695652173913, 0.8508648901355773}, {0.6338695652173912, 
       0.7386629266012156}, {0.6557826086956521, 0.7246376811594203}, {
       0.7254347826086956, 0.6077606358111267}, {0.8126086956521739, 
       0.4815334268349696}, {0.9490434782608695, 0.23842917251051893`}, {1., 
       0.}}]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}},
  AspectRatio->1,
  AxesLabel->{None, None},
  AxesOrigin->{0.05, 0.},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
    "\"T/\\!\\(\\*SubscriptBox[\\(T\\), \\(c\\)]\\)\"", TraditionalForm], 
    FormBox[
    "\"B/\\!\\(\\*SubscriptBox[\\(B\\), \\(p\\)]\\)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "GridLinesInFront" -> 
    True},
  PlotRange->{{0.05, 1.}, {0, 1.7}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7567240141146393`*^9, {3.756724078321019*^9, 3.756724113677104*^9}, {
   3.756724381535371*^9, 3.756724398877921*^9}, {3.756724448605094*^9, 
   3.756724489403943*^9}, {3.75672453031201*^9, 3.756724555344212*^9}, 
   3.75672459801689*^9, 3.7567253030150948`*^9, 3.756725411476364*^9, 
   3.756726747148099*^9, 3.75672678344064*^9, {3.7567268203126507`*^9, 
   3.756726909068625*^9}, 3.756726987709687*^9, {3.7567270195565042`*^9, 
   3.756727093463314*^9}, 3.757117542040517*^9, 3.757118450587344*^9, 
   3.75714017564014*^9, 3.757140221333516*^9, {3.75714026701677*^9, 
   3.757140282382577*^9}, {3.7571403204922543`*^9, 3.7571403592193356`*^9}, 
   3.757140399711773*^9, {3.757140507330552*^9, 3.7571405229525337`*^9}, {
   3.7571410881550384`*^9, 3.7571411117820826`*^9}, 3.7571412168907766`*^9, {
   3.772413241416486*^9, 3.772413317810417*^9}, 3.7724134131273465`*^9, 
   3.772413449645317*^9, {3.7724134866153116`*^9, 3.7724135364791985`*^9}, 
   3.7724136510273995`*^9, {3.772413696616745*^9, 3.772413738405454*^9}, {
   3.772413786257568*^9, 3.7724138226107273`*^9}, 3.7724138608279085`*^9, {
   3.772414040737007*^9, 3.7724140519208975`*^9}, 3.7724140835616193`*^9, 
   3.772414125262813*^9, {3.7724141597870417`*^9, 3.772414182688511*^9}, 
   3.7724144432412777`*^9, 3.772537841183614*^9, {3.772537975064788*^9, 
   3.772537993676976*^9}, {3.7725380536334443`*^9, 3.7725380632602577`*^9}, 
   3.772538105348753*^9, 3.7887570159744787`*^9, 3.7887802462162743`*^9, 
   3.788780326793578*^9, 3.7887829534893703`*^9, 3.7887839085157967`*^9, 
   3.788784158422983*^9, {3.788787761076331*^9, 3.788787792371587*^9}, 
   3.788787844737629*^9, 3.788787883847571*^9},
 CellLabel->
  "Out[2314]=",ExpressionUUID->"c156cb92-3d01-4459-977f-0947519ba59e"]
}, Open  ]],

Cell["", "PageBreak",
 PageBreakBelow->True,ExpressionUUID->"6ecba142-7832-4671-bb86-5d440311dbe0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"3", "-", 
      RowBox[{"Sn", "/", "6"}], "-", "PbTe"}], ",", " ", 
     RowBox[{"with", " ", "Rashba"}]}], "*)"}], "Title"], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    StyleBox[
     RowBox[{"Tc", "=", "0.29"}],
     FontSize->16], 
    StyleBox[";",
     FontSize->16], 
    RowBox[{"(*", 
     RowBox[{"Tc", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], "*)"}], "\n", 
    RowBox[{"Bp", "=", 
     RowBox[{"1.86", "*", "Tc"}]}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Pauli", " ", "limit", " ", "Bp"}], "=", 
     RowBox[{"1.86", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"parallel", " ", "field"}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"FFLOS", "=", "3.28"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "largest", " ", "Hc2", " ", "for", " ", "FFLO", " ", "state", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], ",", "Tesla"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataFFLO", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", " ", 
         RowBox[{"0", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.987037037", ",", " ", 
         RowBox[{"0.124145786", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.966666667", ",", " ", 
         RowBox[{"0.211845103", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.925925926", ",", 
         RowBox[{"0.315489749", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.886111111", ",", 
         RowBox[{"0.386104784", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.858333333", ",", " ", 
         RowBox[{"0.427107062", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.823148148", ",", " ", 
         RowBox[{"0.466970387", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.767592593", ",", " ", 
         RowBox[{"0.51594533", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.734259259", ",", " ", 
         RowBox[{"0.541002278", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.699074074", ",", " ", 
         RowBox[{"0.561503417", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.652777778", ",", " ", 
         RowBox[{"0.583143508", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.598148148", ",", " ", 
         RowBox[{"0.60022779", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.555555556", ",", " ", 
         RowBox[{"0.61047836", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.521296296", ",", " ", 
         RowBox[{"0.617312073", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.462962963", ",", " ", 
         RowBox[{"0.630979499", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.405555556", ",", " ", 
         RowBox[{"0.648063781", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.37037037", ",", " ", 
         RowBox[{"0.662870159", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.312037037", ",", " ", 
         RowBox[{"0.690205011", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.277777778", ",", " ", 
         RowBox[{"0.709567198", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.233333333", ",", " ", 
         RowBox[{"0.739179954", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.185185185", ",", " ", 
         RowBox[{"0.776765376", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.140740741", ",", " ", 
         RowBox[{"0.814350797", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.092592593", ",", " ", 
         RowBox[{"0.86332574", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.072222222", ",", " ", 
         RowBox[{"0.886104784", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.027777778", ",", " ", 
         RowBox[{"0.946469248", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0", ",", " ", 
         RowBox[{"1", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "parallel", " ", "Hc2", " ", "at", " ", "1", "%", " ", "resistance", " ", 
      RowBox[{"Unit", ":", "Tesla"}]}], ";", 
     RowBox[{"rescaled", " ", "as", " ", 
      RowBox[{"T", "/", "Tc"}], " ", "and", " ", 
      RowBox[{"B", "/", "Bp"}]}]}], "*)"}], "\[IndentingNewLine]", 
   StyleBox[
    RowBox[{
     RowBox[{"data", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.02071", "/", "Tc"}], ",", 
          RowBox[{"2.88", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.03423", "/", "Tc"}], ",", 
          RowBox[{"2.74", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.05047", "/", "Tc"}], ",", 
          RowBox[{"2.6", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.06971", "/", "Tc"}], ",", 
          RowBox[{"2.44", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.0848", "/", "Tc"}], ",", 
          RowBox[{"2.3", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.09991", "/", "Tc"}], ",", 
          RowBox[{"2.18", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.15371", "/", "Tc"}], ",", 
          RowBox[{"1.6", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.18203", "/", "Tc"}], ",", 
          RowBox[{"1.4", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.24913", "/", "Tc"}], ",", 
          RowBox[{"0.66", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.28315", "/", "Tc"}], ",", 
          RowBox[{"0.24", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.26", "/", "Tc"}], ",", "0", ",", "0.02"}], "}"}]}], 
       "}"}]}], ";"}],
    FontSize->16], 
   StyleBox["\[IndentingNewLine]",
    FontSize->16], 
   RowBox[{"(*", 
    RowBox[{"multiband", " ", "parameters"}], "*)"}], 
   StyleBox["\[IndentingNewLine]",
    FontSize->16], 
   RowBox[{
    RowBox[{"lamda11", "=", "3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda22", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda12", "=", "0.4"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     StyleBox["a1",
      FontSize->16], 
     StyleBox["=",
      FontSize->16], 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["+",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", "=", 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["-",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a0", "=", 
     FractionBox[
      RowBox[{"2", "\[Times]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"lamda11", "\[Times]", "lamda22"}], "-", 
         SuperscriptBox["lamda12", "2"]}], ")"}]}], 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         StyleBox[
          RowBox[{"(", 
           RowBox[{"lamda11", "-", "lamda22"}], ")"}],
          FontSize->16], "2"], "+", 
        RowBox[{"4", "\[Times]", 
         SuperscriptBox["lamda12", "2"]}]}]]]}], ";"}], "\[IndentingNewLine]",
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"betaf1", "=", "4.77"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "beta_so", " ", "for", " ", "the", " ", "major", " ", "band", "*", "in", 
      " ", "unit", " ", "of", " ", "2.1", "*", "Tc"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"betaf2", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"scalef", "=", "1.66"}], ";", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
      "coefficients", " ", "related", " ", "to", " ", "Lande", " ", "g"}], 
      "-", "factor"}], "*)"}], 
    RowBox[{"(*", 
     RowBox[{"Bp", "=", 
      RowBox[{"scalef", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"arf", "=", "0.18"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "Rashba", " ", "SOC", " ", "for", " ", "the", " ", "major", " ", 
      "band"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"roupf", "[", "x_", "]"}], ":=", 
     RowBox[{"0.5", "\[Times]", 
      RowBox[{"(", 
       RowBox[{
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "*", "scalef"}], "+", "arf"}], ")"}], "2"], "+", 
          SuperscriptBox["arf", "2"], "+", 
          SuperscriptBox["betaf1", "2"]}]], "+", 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "*", "scalef"}], "-", "arf"}], ")"}], "2"], "+", 
          SuperscriptBox["arf", "2"], "+", 
          SuperscriptBox["betaf1", "2"]}]]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"roumf", "[", "x_", "]"}], ":=", 
     RowBox[{"0.5", "\[Times]", 
      RowBox[{"(", 
       RowBox[{
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "*", "scalef"}], "+", "arf"}], ")"}], "2"], "+", 
          SuperscriptBox["arf", "2"], "+", 
          SuperscriptBox["betaf1", "2"]}]], "-", 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "*", "scalef"}], "-", "arf"}], ")"}], "2"], "+", 
          SuperscriptBox["arf", "2"], "+", 
          SuperscriptBox["betaf1", "2"]}]]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ff1", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{"0.5", "\[Times]", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{
           RowBox[{"2", "\[Times]", 
            SuperscriptBox["arf", "2"]}], "+", 
           SuperscriptBox["betaf1", "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "*", "scalef"}], ")"}], 
            "2"]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"roupf", "[", 
             RowBox[{"(", 
              RowBox[{"x", "*", "Bp"}], ")"}], "]"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"roumf", "[", 
             RowBox[{"(", 
              RowBox[{"x", "*", "Bp"}], ")"}], "]"}], "2"]}]]}], ")"}], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             RowBox[{"roupf", "[", 
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "]"}], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}], "+", 
      RowBox[{"0.5", "\[Times]", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{
           RowBox[{"2", "\[Times]", 
            SuperscriptBox["arf", "2"]}], "+", 
           SuperscriptBox["betaf1", "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "*", "scalef"}], ")"}], 
            "2"]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"roupf", "[", 
             RowBox[{"(", 
              RowBox[{"x", "*", "Bp"}], ")"}], "]"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"roumf", "[", 
             RowBox[{"(", 
              RowBox[{"x", "*", "Bp"}], ")"}], "]"}], "2"]}]]}], ")"}], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             RowBox[{"roumf", "[", 
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "]"}], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ff2", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["scalef", "2"], "\[Times]", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}], 
        RowBox[{
         SuperscriptBox["betaf2", "2"], "+", 
         RowBox[{
          SuperscriptBox["scalef", "2"], "\[Times]", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["betaf2", "2"], "+", 
               RowBox[{
                SuperscriptBox["scalef", "2"], "\[Times]", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"aa", "=", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"a0", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}], "\[Times]", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a1", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a2", "*", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}]}], "\[Equal]", "0"}], ",", 
       RowBox[{"{", 
        RowBox[{"tt", ",", "0.05", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "6"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"aa", ",", 
       RowBox[{"ListPlot", "[", 
        RowBox[{"Take", "[", 
         RowBox[{"data", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"Length", "[", "data", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Take", "[", 
          RowBox[{"dataFFLO", ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", 
             RowBox[{"Length", "[", "dataFFLO", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2"}], "}"}]}], "]"}], ",", 
         RowBox[{"ColorFunction", "\[Rule]", "\"\<Rainbow\>\""}]}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<T/\!\(\*SubscriptBox[\(T\), \(c\)]\)\>\"", ",", 
        "\"\<B/\!\(\*SubscriptBox[\(B\), \(p\)]\)\>\""}], "}"}]}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.741351284690357*^9, 3.7413512858877172`*^9}, {
   3.741351396894229*^9, 3.741351410064826*^9}, {3.74135189789499*^9, 
   3.74135204025314*^9}, {3.741354427144142*^9, 3.7413544279582453`*^9}, {
   3.74287708215375*^9, 3.742877118342558*^9}, {3.742877219774575*^9, 
   3.742877219947274*^9}, {3.7428778401159277`*^9, 3.7428780041074743`*^9}, {
   3.742879458992814*^9, 3.7428796380983543`*^9}, {3.75711553633117*^9, 
   3.7571156054603043`*^9}, {3.7571239814910555`*^9, 3.757123984887931*^9}, {
   3.772417232150691*^9, 3.772417413157361*^9}, {3.7724174670726204`*^9, 
   3.7724175317608004`*^9}, {3.772417562260908*^9, 3.7724176181538577`*^9}, {
   3.772417650994855*^9, 3.7724177402879314`*^9}, {3.7724177931782637`*^9, 
   3.772417800377323*^9}, {3.7725337167909*^9, 3.772533750240472*^9}, {
   3.772540055593459*^9, 3.772540099378947*^9}, {3.7741994499643793`*^9, 
   3.774199524100136*^9}, {3.774199572412327*^9, 3.7741995832906713`*^9}, {
   3.7741996232*^9, 3.774199654391195*^9}, {3.7741997042582736`*^9, 
   3.774199705564859*^9}, {3.774199749246022*^9, 3.774199768112171*^9}, {
   3.788758043676828*^9, 3.788758066686385*^9}, {3.788779652880666*^9, 
   3.78877965295538*^9}, {3.7887798752553368`*^9, 3.7887798753504133`*^9}, {
   3.7887804043889513`*^9, 3.788780660927534*^9}, {3.788782982217154*^9, 
   3.78878298374333*^9}, {3.788783917016247*^9, 3.788783937182444*^9}, 
   3.7887841630923634`*^9, 
   3.788786087580274*^9},ExpressionUUID->"c707d823-e122-4a65-b67d-\
36632469cb21"],

Cell[BoxData[
 GraphicsBox[{{GraphicsComplexBox[CompressedData["
1:eJw9Vwk4lG0Xtisia5QttMuvRZvS/bQIn5J8aVFkKVIklZAS+kSLrywl7crS
psWS7Fu2UJaxG2Ym+zZ8SqTGP6YZz/Vc11znep9533Puc+5z7kfdztX8iAAf
H58kPx/f5O/dyMn1HOe94kON78kTywnhlAO9CWh678Le8mTsmeeyi+NJ6NNM
LZuwkSeFe88X7D2fjCDzG9qZ++WJmu+KB016qXhh/SFTbaY8aTBrm8loT8VR
e+32HH55ksXQmtywThVt838kR6ad0grKdMuCvZ9Jm3akHLlwrU/2floW5hmH
srccUaVsUqFsykVR3indvavliHTPlvQDJ3NR/WLbllxtOfIozfycxeNcGE0e
nydHmjl+5sPbc09QS6kscU3SmEuLzkedmW1AVq4sOX8uWW4PPR8unIBkibzB
TCG+5gK8nrgfgD2yZN9kOAVFWH9R9caxnzLkqMz2B2GKxRCMr/td3StDLvQI
bqF5FIPzmSYZcvuhhIrowU/oTj7wJd9fhnDcVSlD8heXK8tXyBDBOm2l8dgy
5HrvffU/JRki5v9v5t3t5ZjgLGmyhablHDn2Ge9pO2uVk6XJs0t67F0Bz4VG
H8TPSJMSx/nvGc8rkKSzJjbITJqEPJBruLWqkhuvNPn0IcXnfmMlpF9tNTjc
L0UcOKsKYolIX5MtRSoMNXaWSlbDR3Fi44NrUiTae+Uui+5qhHAAliKqOcoB
etsoMM++W6aqJUX+4E5BgGFMbryMFDEeXnIq0bcGmlnZb2MjZpJlywVnlWTW
IpkTvyQpzEn8McG2a9IKxEzY9p/01mLGQtYmHbbt6mLx1/7sWkgJHc6/2ChJ
XlTHRlmw6hDob9G/W12SPJbsYe963Fv37FJuhASZJx+mb5jdwI1Pgsj0l9TZ
BDRitmaOiFvCDGI9JH9oSL4JJxRUjs+2nkEcDSXb3pQ2YUc/bdeK3+IkqXSi
7jGlGY2cBIkT1MW9fyhLRcKvrU3rjcWJMidBVAQcM0zZoCNOjhSbXTi2oQXH
VEeq6HFixObXEjk+qxYM+23rd7otRv68pxUm0RbUcj4xsjeM5Ye4VvhcCdxp
2Dad6DubvjDgo8GZU0/TybIfQkoLvGio0SrLKVwxnZRxFg3myomJPpRpZGlx
5Xx+NTq+u7X2lPpNI1e6Ly/Ou0fn1oMoqXfp+Ve9gI4TPw/e31gpSjhwMui4
6f/uvttrUZLumF947jgDIc8V+MTVRYlaagE93IuBbo3rjjXSouTqm1H2ZqBO
Tvn3iUAR4ifXcEl67Vdw4DQWIaaLtteWvv8KWp9DpXuWMOnmJKANDt6R46H7
hcnQb52rsw62ocCOKRsxQ5iklEcMtle0cfkoRIqWK09I8rfDwaXYa7WlEPmT
p3YoDK9zpK8QIgn37Dq232nn8kuQrDRd/jkqph31WZdsVsUJktZVtKPZXe0I
7HoUFXRQkMRx6r0DQu7TIr5PCBDh7orprUYd+Nfr8X+K/wkQ0+SELd+sO7h8
EyC1dRPfEno6cNk9TThPT4CIuJuJupt1ourt8nMXsvhJMkvd68y1TsQfd6Wk
+vGT/boeRJrWCY778/jJeglRwx9LujAmc/poWiEfOcLhSxduUdwsAjz4SPOT
04rCJV2QfuA/88R0PjI47nRI1aSb+30WdD5m5Fke6cbyf408a0JZ+Mjpf91w
pjoFG+9k4dNwpH7MRDdSzG/FWc74DQOjxq7Kgz2wnT+SEDzrFzQ5jvTgwf4b
BmsDx9E3z/z0xO0etAR24M75cSxQzIia+6CH22/H4cr4te3rkl4UB1zO7KCP
wX8Srme9UMhWU893GYWY5LBSWHovjn4cK1DQH4VtrUanRlUv+DhrFBtUEgdD
jPqgIk+NeHx9BHROQfUhwtSUdlb4Oyo6X57cVdmHR3f3ZWR//gbyarb3z7Y+
br6/QUGlZ8Vyi340NEdFn+MfRvFVK+vE8n6cVjmyonrtEHQKpq3uq+rn4jsE
WfHvnY7V/Yj/ODfSQmMIZLIdUvqxbiPxtVUbwphH7tlevQEungOImyt0tcpo
AHvL+s9Vmg5gcJLehwbwU2aLe8SlfvwD9bykOwNcPHohWsCyeJsygELnBWsj
dXrwp38MwEP+WbCqQhdC09IatvcNcOPvgt63dV1izAE8apYzucSuA2qKPuOx
EhNK5JyadWk7JtlyVYeJlXmz9O/WtOF3Of/+IV0mN/426FGliujrmIja1OX5
y6wNRx02jNgbM1F//M76eJ+vf86ZMzFtoUzwD8Gv2GOd67LKgsmNj4FDgqEJ
xdZMTO9Oe880ZWDgjriVohsTe/2ejjnp02GYZoLkU0wufnQs/mz1xeI0279b
K61os+mYrG5Rdybi9Mtv7mHRIC8ucOZQMO/9LbA+/MN9UyQTA2KRo7vWUHH3
9PcTVXeZaJWvfT2d1Yz+gVdq+2KYXPyawJkvaUwUhct9URCqh9f4gVURbNtE
L2lkhK8eMdqbWffZ9h/86sHK/Ksqlm1/yUmt3MLu27O9DI2WlTBx1HcRiTGp
Qfdj/eHOMh5eFGxdwfcyuoqJezd1si7aVoOi4CgcWMvEzJBg5vHLVZhT1Gd2
qpkXbyXe9rMqjRhM6Pb4LHO1/AKB+s1LrrcxEdAntphofob25Y4B3W6e/6XY
oW2vsa2PiTqRpzsOeZdgqesM361DTCxbtE/TS6QQZUEZmxcP8/z5CJdQsTfe
39j4hC23snDNh4Od/+bMMbb/z1WOib/IwO5vP1pMf/Len47Lu2LqX7Nt1TuL
C6Vs06A9c2KxL4uJ3UzvC3rCrxCT6O8XxuKdf4l7V8SWP2TbUfe9b0kwXmDk
9XjXxAQTOeFqS3pcTWBjqNE9aS/ybRyNdzEBT1+Nvrk5I62tBUf2Wz9xuhaP
CWqoWp9WKzo8+rR3n3kN3M9oq9jcir84OL3DQyW9RMnwVnafU23we5OA0CBl
6xsNrdhe5kRZqpmEmOU3pGXkaODpMR+7vLUzdGkQv6Q9nxn8Hs0j0uLh22kQ
WROoYDc7FZvtG4cWhNCwmcPPVEj8reVmF0WDgdWi3JPH0xBzi+I5J56GuFKL
TknhLGSp/y3eK0wHT7+F3VbIi55GB7Uo6/30HVkomPtU3EGMjn8UIzp/nsme
qufsvVefl6vlwMKAphi7hvf/HEh6ZHzO0aNj6Xkv2YD1OTiZdiBvE5sPrKNe
/Ifm5MLc7Ypjqx0dPP13eo7HFV1nOip+r/XIOZ0L2x0fSo6cpqPG0OXvyFl5
aBDVSvC6RseFSfm2Nw+6XnWq7pF0zPXW2m34LA83sp7Ne/uUjtgrEeM35PLh
ZLPScc87Onh6cR41adQpj46u+ivTAqn5SHfyslStoWM9hzAf8dV59lyRTrZ/
agc3d8wqwPjw16rB/+jcfBbgYkgl3yZRBsZ8A5pmrC6ETp2QSqQS2+YM5EJ8
vnFZUUaTgaNVR8qj1IvwcYfVC+OFDPD05ojJirATegzMiQ5pPeVbjMYNBYmF
JgykcGhbjBS+HDWjHQzkPBpLT19VAp2llLC67QzMmmyXQyUwtdfzv36AgWjv
128fZX7Ct9se+rKODHDGo2gpPuUdC5t/hIHKpq/VNrtL2f2iIi7blgGeXg1/
Jug95sQAspUEdAfKsGtf5dnzJxhYyVnlSHasFeplPz/Fn+PxzaccMxcx8ivs
GVxd8RmNpZqshsMMaGp+XBok8wXqllktwXYMcOTaoS/s57I3n1oyMHonNVgw
5QseimHdHTMGeHpXx8cyRIMdb+/1M+oHblXAiu/ao5NbePhU4OfxOWU6qxno
0AhVV56ogAt/rKr7fAY47dGsEsWf6aufsPEe8NbxNL9XiQJjifRfUgxun6xE
rWXs3J3j7HymBDgu1KpCsm7SzBetdPD08qiatpkYO9/bHDfpp0dW4eDwllcv
C+n41JQvLpNfBRdN4cHi93Qu3lWwTbiiEPuMjowSSfsAm2rkuSSJnDhPB6f8
zlej19r14LA7mx/LutYYhFcj+uXxcvWTdJzh5IOtt4MEb+duYNf3g/yiNZIU
GKQ5mR5i8+G3229mjT5lij+dUmOSFwMpGN7/u/uiAH2qzx5scG4T+0XDHpwd
9H9CASUoZprFEI2bzxpUFLht90mkob5fKe/E2RpI1xatNg+kgQP3sxoUqL3a
ttOehqIfWx2aRmqQ2xtmZ7CUhhWcfNfinWvWcSJOQ5i8oh7NqhZDUg6M712t
4On7Mss4l/l7WmG7KaA9Q7puah6VDQ9GGW+sQ5Hg5YCW2y3c+qiDReCTqx98
W9D7NVGhz6oOiyqkMpftawHHXUodEm94OjiHUqH76Jafg2I9qi8OZrGUqci4
c3/WD6V6nFRVW/BEnsrVB/XwFxKZE3yzGRuybmgsucSeU24lieG7mvEkw95p
Vmc9bKyV9Tx9m8C7XzxplrDyOdcEYUvbPU976zHLM7M7waMJnT9fV1kO1k/N
xz/ztgGmM2Jj7Nc1YtTuzg5KSgMoVh83dsQ0cHV6A0R6/jls1FoPrT2sy4kW
jVPzMvsjn7XJuUbMd5RivLxdh9ccgdGIraXbkHWwDklN/wsMT29Eo2j2zomy
WjQcifxPpb4RjNNV5gFeteDdby4HrPrfg5gavNdZ7VO0sgnF0xZ1p5rWQIW5
L+umU9NUHXDCe9wEm2L6fyNJ1VA4IP9WkNGEgLSrHWnZVcjkJKwZ3hNDTYZe
bB5E3hMzIM1T89dFrz2kxr8Zq1+xfgl8+MK9xzQjenegAzlWDj1JZ/+ojuap
+RtwbOFjY/Z9aqmDjwRFvQS8+9R61l6RB/sLsdq566SIHXVq/u40XnVo7DoV
agKDVlLOuZDf9U+i8n0qrK7KxTer5ID2qDPRO4U6NX//3JeoKOS/umOHXzJi
hU+lCX+lwo0y4BZY8QZBQXIXJHqoU/P3knL83yVMKt71ewb/DIhGbPi7X29+
UMGy0Uy6NHgTEjstDnz/yTs/vvH/yUxjqA==
     "], {{}, {}, 
      TagBox[
       TooltipBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
          18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
          35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
          52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 
          69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 
          86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 
          102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 
          115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 
          128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 
          141, 142, 143, 144, 145, 146, 147, 148, 149, 150}], 
         LineBox[CompressedData["
1:eJwN0dNBBQAAAMCX3Q6t1AgNUL9tkm3btm3btnEfN8ElJKUkJgcFAoFU0kgn
g0yyyCaHXPLIp4BCiiimhFLKKKeCSqqopoZa6qingUaaaKaFVtpop4NOuuim
h1766GeAQYYYZoRRxhhngkmmmGaGWeaYZ4FFllhmhVXWWGeDTbbYZodd9tjn
gEOOOOaEU84454JLrrjmhlvuuOeBR5545oVX3njng0+++OaHX/4IyAoimBBC
CSOcCCKJIpoYYokjnn/KLFXn
          "]]},
        RowBox[{
          RowBox[{
            RowBox[{"1.928476690885259`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"22.8177`", "\[VeryThinSpace]"}], "-", 
                    RowBox[{"0.801748323216`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "0.25`"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.18`"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.18`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "+", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.18`"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.18`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.18`"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.18`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"22.8177`", "\[VeryThinSpace]"}], "-", 
                    RowBox[{"0.801748323216`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "0.25`"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.18`"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.18`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "+", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.18`"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.18`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.18`"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.18`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}], "+", 
            RowBox[{"0.07152330911474081`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.9999999999999999`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.14250797266425547`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}], "+", 
            RowBox[{"2.636873802114136`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"22.8177`", "\[VeryThinSpace]"}], "-", 
                    RowBox[{"0.801748323216`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "0.25`"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.18`"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.18`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "+", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.18`"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.18`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.18`"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.18`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"22.8177`", "\[VeryThinSpace]"}], "-", 
                    RowBox[{"0.801748323216`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "0.25`"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.18`"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.18`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "+", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.18`"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.18`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.18`"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.785299999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.18`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.895404`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}], " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.9999999999999999`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.14250797266425547`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}]}], "\[Equal]", "0"}]],
       Annotation[#, 1.928476690885259 (Log[
             HoldForm[$CellContext`tt]] + 
           0.5 (1 + ((-0.25) (-(
                    22.785299999999996` + (-0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^Rational[1, 2] + (
                    22.785299999999996` + (0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^Rational[1, 2])^2 + 
                0.25 ((22.785299999999996` + (-0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^
                    Rational[1, 2] + (
                    22.785299999999996` + (0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^
                    Rational[1, 2])^2)^(-1) (22.8177 - 0.801748323216 
               HoldForm[$CellContext`x]^2)) (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) (-(
                    22.785299999999996` + (-0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^Rational[1, 2] + (
                    22.785299999999996` + (0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^Rational[1, 2])]]) + 
           0.5 (1 - ((-0.25) (-(
                    22.785299999999996` + (-0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^Rational[1, 2] + (
                    22.785299999999996` + (0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^Rational[1, 2])^2 + 
               0.25 ((22.785299999999996` + (-0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^
                   Rational[1, 2] + (
                    22.785299999999996` + (0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^
                   Rational[1, 2])^2)^(-1) (22.8177 - 0.801748323216 
              HoldForm[$CellContext`x]^2)) (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) ((
                    22.785299999999996` + (-0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^
                   Rational[1, 2] + (
                    22.785299999999996` + (0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^Rational[1, 2])]])) + 
         0.07152330911474081 (Log[
             HoldForm[$CellContext`tt]] + 
           0.9999999999999999 (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.14250797266425547`] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) + 2.636873802114136 (Log[
             HoldForm[$CellContext`tt]] + 
           0.5 (1 + ((-0.25) (-(
                    22.785299999999996` + (-0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^Rational[1, 2] + (
                    22.785299999999996` + (0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^Rational[1, 2])^2 + 
                0.25 ((22.785299999999996` + (-0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^
                    Rational[1, 2] + (
                    22.785299999999996` + (0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^
                    Rational[1, 2])^2)^(-1) (22.8177 - 0.801748323216 
               HoldForm[$CellContext`x]^2)) (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) (-(
                    22.785299999999996` + (-0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^Rational[1, 2] + (
                    22.785299999999996` + (0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^Rational[1, 2])]]) + 
           0.5 (1 - ((-0.25) (-(
                    22.785299999999996` + (-0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^Rational[1, 2] + (
                    22.785299999999996` + (0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^Rational[1, 2])^2 + 
               0.25 ((22.785299999999996` + (-0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^
                   Rational[1, 2] + (
                    22.785299999999996` + (0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^
                   Rational[1, 2])^2)^(-1) (22.8177 - 0.801748323216 
              HoldForm[$CellContext`x]^2)) (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) ((
                    22.785299999999996` + (-0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^
                   Rational[1, 2] + (
                    22.785299999999996` + (0.18 + 
                    0.895404 HoldForm[$CellContext`x])^2)^
                   Rational[1, 2])]])) (Log[
             HoldForm[$CellContext`tt]] + 
           0.9999999999999999 (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.14250797266425547`] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) == 0, "Tooltip"]& ]}], {}}, {{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{0.07141379310344828, 5.339265850945495}, {
       0.11803448275862069`, 5.079718205413423}, {0.1740344827586207, 
       4.82017055988135}, {0.2403793103448276, 4.523544679273266}, {
       0.2924137931034483, 4.263997033741194}, {0.3445172413793104, 
       4.041527623285132}, {0.5300344827586208, 2.966258806080831}, {
       0.6276896551724138, 2.5954764553207266`}, {0.8590689655172414, 
       1.2235817575083427`}, {0.9763793103448277, 0.4449388209121246}, {
       0.8965517241379312, 0.}}]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, {{}, 
    GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQDQEf7GEs2yTrTeemvrevNO/9aK7xwp5/v8z7d+/e
2R+au6WucM4X+2COsAz9hW/txbU+Xnm78Z99wAHvDazRb+zjl5zRij/B5BCx
3LO8vPy1/ZorW07/O8bi8KXj7Qmr8Ff2RRGKQfnb2RySjheFy014YS+1uHV5
hCSng6AYmxtv/XP7jfNK76cEcjms/b5y+oW4Z/bXtr1cvyWA2+GnBJNl3+Mn
9t+6OWYZx/E4HAzdNZVd5bH90trVMt+MeB0+GrIUyRx/aF/H6Mc6bxOvwwvB
2xNL1z2wfxgnv2AHO58DxL137ZdKHrr6diOfg+epPK/5X27aB3GnRmxo43c4
vGbxG9Ut1+07HG8Gd8kLOLhPdDbM+nHZ3udPdef+kwJQ8y/aP1754Im/k6BD
/Fy1u3fvnrVfoKhnsuWXIFT/cftAOaW4vU+EHPYsf/78FPMhe5vFa9uPnRN2
cMg7+U51y3b7/hPxRrv/izhcudhxUb12k30S51qTSb2iDuLyzgrHC+fYR4TL
JhSxijvA4iElr9fuaJCEw2j8DO74AQBmJ3Rv
     "], {{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18, 19, 20, 21, 22, 23, 24, 25, 26},
         VertexColors->Automatic]}}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
       1.6]}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
        1.6]}, {}}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
        1.6]}, {}}},
     VertexColors->CompressedData["
1:eJzt0u0v1AEAB/A7Mg+bUsmyk4fpKM/LhR7sK8wiIWeLtR7OXGIVhmLkOWWN
mx5Em6fK02JS2mzOueLnkHSc4+g8HO5+7sFCepiH5K/olRef/+BjFRkXytai
UCiMbdrbls9yT5fbT8GtWdVoImnH3FZRfcjkDNIZYdR4UyGy2jYIu4YBJE37
H3UoXkBdRB+zyV4IQt+Xp4MJLPh6nKetKKEkB8KWeCIEbJqXPpTMwsXkWmVe
PomZ2tvBOtIx7Na9bGYEOZwV/WnWRvMgYrPVRcQEMkgerctNAZcjf13Hx2Xo
cycuuOhNoQW9rDWZArucTPdJH0/jGWXtkPSYDJxso8qLKSSup7q2rksn0OnM
jYq4MYs/be9L6mtIeBv6mHR+lOCtsiS8mD0HZoJWALefxMlqm4xCvTFkbhrW
RabOo7/joMG9PhKLAvO7j1rEuDIQbHyHKUeVQ8X6rx4SdDZ97mbdCAKPcwuC
RuUgakMjEgkSFPnyd77uCNAVnVPgqIC2ldVifDcJ30aboKByEWosBB4isQLN
rGhl9jsSNd2WDsnKYThmprT6VJCIWcLV3BwSFtNJ7E+ewyA++OWvnVtAYluZ
vjqcRNhk9ZnV+iFkNUUls+8rcSokkyOlkoh25fi7VwnxJlB3NIahwvPXLcRG
tgL8WclvQ7oQRWxPRxMvNcI52n6xPDm+epaGsIYG0aGSRSTRNdifxH9xy3se
zDWD6S6nLzjQ0JFXKNagq85or9eDWTyVxf2UVH5G5avc0ksyDVZpAWm00ilY
mrPVBnZ9EHEZXrZ8DcgVsarnxDf4m7ELmFIBrO0pT/ZQNWhnhbQI/IYw2Er9
EazTDdWA5+H0ODVeltmOGffyIYhK2CpW8rHzbefb//z2D6K4fsk=
      "]], {{}, {}}}},
  AspectRatio->1,
  AxesLabel->{None, None},
  AxesOrigin->{0.05, 0.},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
    "\"T/\\!\\(\\*SubscriptBox[\\(T\\), \\(c\\)]\\)\"", TraditionalForm], 
    FormBox[
    "\"B/\\!\\(\\*SubscriptBox[\\(B\\), \\(p\\)]\\)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "GridLinesInFront" -> 
    True},
  PlotRange->{{0.05, 1}, {0, 6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.788780632233165*^9, 3.788780662003933*^9}, 
   3.7887829903204803`*^9, 3.788783941437313*^9, 3.788784165228326*^9},
 CellLabel->
  "Out[1903]=",ExpressionUUID->"a98fca9e-5d83-438a-a320-3ca5bacfbae3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"3", "-", 
      RowBox[{"Sn", "/", "6"}], "-", "PbTe"}], ",", " ", 
     RowBox[{"without", " ", "Rashba"}]}], "*)"}], "Title"], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    StyleBox[
     RowBox[{"Tc", "=", "0.29"}],
     FontSize->16], 
    StyleBox[";",
     FontSize->16], 
    RowBox[{"(*", 
     RowBox[{"Tc", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], "*)"}], "\n", 
    RowBox[{"Bp", "=", 
     RowBox[{"1.86", "*", "Tc"}]}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Pauli", " ", "limit", " ", "Bp"}], "=", 
     RowBox[{"1.86", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "parallel", " ", "Hc2", " ", "at", " ", "1", "%", " ", "resistance", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], ",", 
     RowBox[{"Tesla", ";", 
      RowBox[{"rescaled", " ", "as", " ", 
       RowBox[{"T", "/", "Tc"}], " ", "and", " ", 
       RowBox[{"B", "/", "Bp"}]}]}]}], "*)"}], "\[IndentingNewLine]", 
   StyleBox[
    RowBox[{
     RowBox[{"data", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.02071", "/", "Tc"}], ",", 
          RowBox[{"2.88", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.03423", "/", "Tc"}], ",", 
          RowBox[{"2.74", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.05047", "/", "Tc"}], ",", 
          RowBox[{"2.6", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.06971", "/", "Tc"}], ",", 
          RowBox[{"2.44", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.0848", "/", "Tc"}], ",", 
          RowBox[{"2.3", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.09991", "/", "Tc"}], ",", 
          RowBox[{"2.18", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.15371", "/", "Tc"}], ",", 
          RowBox[{"1.6", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.18203", "/", "Tc"}], ",", 
          RowBox[{"1.4", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.24913", "/", "Tc"}], ",", 
          RowBox[{"0.66", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.28315", "/", "Tc"}], ",", 
          RowBox[{"0.24", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.26", "/", "Tc"}], ",", "0", ",", "0.02"}], "}"}]}], 
       "}"}]}], ";"}],
    FontSize->16], 
   StyleBox["\[IndentingNewLine]",
    FontSize->16], 
   RowBox[{"(*", 
    RowBox[{"multiband", " ", "parameters"}], "*)"}], 
   StyleBox["\[IndentingNewLine]",
    FontSize->16], 
   RowBox[{
    RowBox[{"lamda11", "=", "3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda22", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda12", "=", "0.4"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     StyleBox["a1",
      FontSize->16], 
     StyleBox["=",
      FontSize->16], 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["+",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", "=", 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["-",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a0", "=", 
     FractionBox[
      RowBox[{"2", "\[Times]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"lamda11", "\[Times]", "lamda22"}], "-", 
         SuperscriptBox["lamda12", "2"]}], ")"}]}], 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         StyleBox[
          RowBox[{"(", 
           RowBox[{"lamda11", "-", "lamda22"}], ")"}],
          FontSize->16], "2"], "+", 
        RowBox[{"4", "\[Times]", 
         SuperscriptBox["lamda12", "2"]}]}]]]}], ";"}], "\[IndentingNewLine]",
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f1", "=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "*", "Bp"}], ")"}], "2"], 
        RowBox[{
         SuperscriptBox["beta1", "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["beta1", "2"], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f2", "=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "*", "Bp"}], ")"}], "2"], 
        RowBox[{
         SuperscriptBox["beta2", "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["beta2", "2"], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"betaf1", "=", "4.77"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "beta_so", " ", "for", " ", "the", " ", "major", " ", "band", "*", "in", 
      " ", "unit", " ", "of", " ", "2.1", "*", "Tc"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"betaf2", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"scalef", "=", "1.66"}], ";", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
      "coefficients", " ", "related", " ", "to", " ", "Lande", " ", "g"}], 
      "-", "factor"}], "*)"}], 
    RowBox[{"(*", 
     RowBox[{"Bp", "=", 
      RowBox[{"scalef", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ff1", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["scalef", "2"], "\[Times]", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}], 
        RowBox[{
         SuperscriptBox["betaf1", "2"], "+", 
         RowBox[{
          SuperscriptBox["scalef", "2"], "\[Times]", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["betaf1", "2"], "+", 
               RowBox[{
                SuperscriptBox["scalef", "2"], "\[Times]", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ff2", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["scalef", "2"], "\[Times]", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}], 
        RowBox[{
         SuperscriptBox["betaf2", "2"], "+", 
         RowBox[{
          SuperscriptBox["scalef", "2"], "\[Times]", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["betaf2", "2"], "+", 
               RowBox[{
                SuperscriptBox["scalef", "2"], "\[Times]", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"aa", "=", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"a0", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}], "\[Times]", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a1", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a2", "*", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}]}], "\[Equal]", "0"}], ",", 
       RowBox[{"{", 
        RowBox[{"tt", ",", "0.05", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "6"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"aa", ",", 
       RowBox[{"ListPlot", "[", 
        RowBox[{"Take", "[", 
         RowBox[{"data", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"Length", "[", "data", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<T/\!\(\*SubscriptBox[\(T\), \(c\)]\)\>\"", ",", 
        "\"\<B/\!\(\*SubscriptBox[\(B\), \(p\)]\)\>\""}], "}"}]}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.772540405467191*^9, 3.7725404501128345`*^9}, {
   3.772540495932021*^9, 3.772540521309311*^9}, {3.788758091714674*^9, 
   3.788758112121251*^9}, {3.788758146532874*^9, 3.788758170024989*^9}, {
   3.788779875360736*^9, 3.78877987544805*^9}, {3.78878077310411*^9, 
   3.788780952921206*^9}, {3.788782995276814*^9, 3.788782996931239*^9}, {
   3.788783952015892*^9, 3.78878395963801*^9}, 3.7887841687424173`*^9, 
   3.788786095652752*^9},ExpressionUUID->"0c680473-364b-440c-98a0-\
be0c64b4f246"],

Cell[BoxData[
 GraphicsBox[{{GraphicsComplexBox[CompressedData["
1:eJw9Vwk4lPsXtsuSfQkhVIpu6yXZ3l/1r1CWWwmptFFKVylFllDRZklSSldo
UVnaqFD2XfZlGMPM2CIMoZTor2n4Pd/zzHOe+eabc973vOe8n9p+162OPFxc
XDLcXFy/P+9E/T5PkCC6N1m5sxXMxEV/211NgtOP9XO+a7dhp4ND3sdTyaiK
d2csX98Gs/D5puHzX0B1hb3fXxFtmM3D6I1IeYl1GlLrTjS1IfxRh/ZWjdd4
ffDCtWUydBTaeBfYeKci7syXg1J/06F0Yd3Yz+A0SFPF1C5voSNy+zcHb4V3
2DS36IXBdTrWKdetVa57h+Zt+44ejaWjwq4w1vVoOm4tSbNXSqKjxiq6WZP/
A+RUe95P8jPwgan9+8KuI/8KpM5iYMB1243RLR+g4f96yF2YgW6rtxuXnMqC
KTtvBopbdwXlqWYje8mXOWmrp3+fje3O7Vk1+gw0JAV+CTfIRoWGyRMbIwZC
ff7bvUMxB3oRgyL9+xlQ+Z3e2hxsHR3rXuvCwPx8sx/lJ3MwnLzyqudJBgKW
U+Zcl8vF7gq754FXGfAp+A1ALra5kOFzUQzoX2qU3JaQCw0h9+TceAbMjRf6
B8nkIUtxdemBFwy0pB2jph3LwyFhkzsncxmQyK5yD6PlwW13j+Ff9QwYJJzX
Tzifj87YemfxbgYy3kbptssVoK1bLm70CwN/+CxA2vrvp80EmRCpPe0lq1uI
lf7GGY+UmPh+JWXsSkohvv7U4Z2rwYSa2Ffne2pFaFipe9tKkwnb33QVFKHv
jLmkpz4TCa2HbL38irGgFzJ1m5l48zs9ajG2OwX/vc2ciYn6lO5UnRJIlUgV
07cwIecwJOswVIIrCltUb9sz0UF7ppnwvhQ2zwTvzjvEhLuV4NRVhmj7sZgV
jkyQ8USa3fYyWDTVPyzdxwQbXuVyhNb4NPEfYULf74Wj4UA5DpS/T738LxOr
2OcjLlzErW/OTNAexVT0+X6Ek6xTS8sBJtg0m1ZASyHkSddBJjy1aHvDpCrx
+XtKzZ39TPzOTtahEr8cLuH5zqnnP4gNG0+rROxBm4YHVlP1/oZXvwreB2z1
lk3Vm65Sq+xwswpPlfN0fNZP41OFRXqVhw11mTANaxSd86sKI7ml3AELmBBk
F1gN4Ver6pKn8I66kbpvx91qrNTNlRWSZIJNL7UaZxerUezHGZiMN1bX0K4B
aIuuvWljwIl9aqCzu22z/BTfvK6VmVlRNdigkEN/V8jAjv4WL9G8GqQGB/s1
pzE4eNdgsIJ641UCA/XerOt+e2sh/2+hoY83A+z2866FzqaJJ9ynGXjnsNbX
NKIW+QNrzZcdZ+AUm486dHicU6o2ZGDC0snKUKwO6qwbMcd+60HH/PF3o7oZ
/bR37LM9H1QHfRPfk8E8U/3P/qIO/buxU/EnHTLddRTvuDqoninbcHiIzuGz
HtRZAheuvaKj+GLiXrfT9Qi2KXywO4gONtwJ9diwfeDjrgN0bD1hINbwtR4L
uV6u27GEjpVsvhugkiw7aC5Ch9ycjOb23Q2wlvYsE+1pwx/5N2D5uVGxdTva
0BbJ4q2WbOTg3IrT/ptNzI0bwef+Onw0spXTH43IZbx73ODXCulls606dzci
Iksq1N62Fex06xpxcv0em6BwGhS6N2ocmUNBiVdysqwyDX7GjsMsJQoOGbnq
V8rSMMjuJwp4Xj5e+TisBQohkeF/nadgx8Um56f/tOC+VjNdvJuCLgN/n1g/
Ku6L9U5dFJTGT1rcOUvFv/xrKx59pmBSYnd18RkqOqRPPDg8SAH1TwFg0+Pe
hIQtC7b6rGmGcH4yb+ObJhipnd3z7WETfrFPE+QlmbF72yhYa+TXlWndDC72
oYDixc1jcbYZrKUhoZmRjUge+z0AmiF/+9Slxl2NkJLNlwnOaMY89422Sz82
wMMnN2IepRnloUkjNz0bsIctGCrqt030vXxYjwD1Te9LVlFx11RTodiiHuHL
K3RvOVNn+oBd3n0q8ipO00RTa5EVNnman0mF+5cnqoVZNXjPJqwF9+6kmO70
rIbk+v5TpqSF01/VyFJ2GW8IaIHJxUe1Mm8r4cIGogXc7tFHHI58xPkY0zUP
ulo4+JRBaF1xhpk0DXFvtESZaiWYy244Gm4F+Wa8tivE1erVXwT30zj55SNj
sSnXj2s0OBjdsZrjkgPFne+zVaJpCGSm5OYqZyO6W3GH9xsa5/kZKGcfGtTv
UQOd/VPhcVqpnb+dhtgLxzxCq1IwP0bk8eze6fufoX7wtnsJa6ov+EOpwxcf
wLmgkPv5Nxouv1ifenEwDK8sre1Hf0zfP27cZHN2j73aCw5fc8j0fg3r1Rtd
8EueBFukdNpefYkAQf6R56ny5Gz7Blv1b6/Rqtka8maFPLH9e9NAmU4qBz95
4m4V0uiwJRVCbbYnG1TlyfT+VXQ3TtgjK0/81y983rvnLRSsczcJhsuRd9FK
fJFm6RxdyJGm/+y7S29koFX5kNddQTkyvV8LL+2UyY6WJXZnDjNKhz5gd+Tl
u8b+skRabSBeLzSLU48sua9Pz+nRyoGx56H6i3yypNRDd1mMUQ6MHr9y0/4l
Qz4skjl7/lMuhw8ZYqV38MizuXkoTywhZgEyZHr/jWmGRzu7yBC6Ysa1CtEC
RNrcCSyeJUPMbo5fq/MpBFsdadKkqOiWVdjsIqQkGQeFhEuT6f2lW3PhMeWQ
NLkU4dIgo1KC2z+30Y6rSpNr673eqZwq5cwHKfK8w9J8q1EZtF0WSBmkSJHp
/dMD/r0VflLEJFOyc+lU362eSAtMXStF1GYLKZfUVHB0J0lKHYXuXo+vxBWT
e/kJDZJken+svu5hU50sSVZv/VKgM1KF5Y/btrcdkyRn+kXyIsqqYcIGXJLE
x/Z5tCrVYEW0ceZCQUkyPf+PmVYphvVJkFr4Vm42qcW5fKcxyzgJcuKn4wuL
XXW4zgZQgkSul+WV8KzDiOea18sgQaZ1qP2+9XOkrgTJKTgfEHemHqnc8t56
NHHieXifdFtSPR4rLm2zzBAn0/NzRCXeMEhKnMjb9VyJ62rAE+HBKIdxMaJ4
8aN6rEojUtl4iRHmuwfKXuoUHO/Ws2w1EiPT8yzK4+XN1vzZpDer+7DcviYU
SPiPXAmYTSQiLk/+mNXMqXc2eRqlbakV14z0gWQB7RJRMj1fZnWaiZ8/L0qi
jArTT3VSgaBUuyuSomQ4YN0aDVEamtmEiZDoiM23MrRowJmd0l72ImRa75Gt
XMc1LURIutpeX9ciGoYyjy835BMhld87rRNOtMI2oZz29pEw+fOcNuhWbk09
piBMqjNcaIXv2hBy8rvEpy9CJPrjw1VVcnTO3BEiVIPNhz386ZhQMTjQCyHy
Zx7QMSnrPuTZM4tMbIk66LOQAUbj7uv3gmeRYs0UnTOJDE5/CJKJAZ6GtjIG
8gZ+WnZQBQkbbiYDMS7CYtHZgsS3xZkZMeVD9O5s6C9aJ0iiD0st8DjBxN7a
TCU/LUHCtmtjTHD3mzK33xQgH4sebtuwoZ2jVwES5cfrFpnRDv5fDtcFCvlJ
D5uQDox9Cwy95chP6kVsZznt7UCvqI2rozQ/GVWdZ3GuuYOjPz5ydFle4CBf
J5gT/Do2e/nIH546sT9UOOy7IR95uzBzOOJ+J0dvvORQWu23eU86sSEqsTQ9
kZd4uMg5nKzvRJezzAsuL17ymN3/XSg4FLvrqSAviZqzXJ2yuQt/v/knqfQr
Dyn5mkWzcOri6I+H7Bqpf7qzvwtbFpdg2JiHCLD9UzduzaIXqRRwE/N7Xsya
4G48M7LfeuYiN6HHGVDNO7s5846bpGRcPS791yf8s+v5ZvFSLuLI1s8nyEe5
eBr7cBF+1UTlztJPiN9W8fOAKBcpi/UzqrDo4fz/JBLynbt4D/WgQ6ODV+b2
JPLZ87IHSXNob+fZTeJLyEHeudy9iLV5suCHxATEu/OpSha96DT76sOz4Sc0
2In0Au/TLK8Fj+Mo9YXmotu9cFmrrrvWbxwxxDcyP6Z3et7jy/xG3nbtz2gz
3GAt1vkdAWz/8xl8posFCtzGcNkh7uCxzM9A7Wb5EoyhWm9A93PtZ85+GMOa
kIBvpqZ9WDrcmN4Z8hUMdkP1wS1Lq2mV0Ci8XBWW9Vb3geX9UjauagThriPN
87v6OHyPgCI0/1ySdT+uJYUs5uUdhrGq25PE6n4MPpJ7sXHJEJLmCmom1PZz
8B2Clmbtjcap+Er5HeM0jSEQtj/qR9vHzhU31IfwUnV/kbfBAAfPAYRSdb5q
mg7AS7hxos9qgOOPBtCgMsbvcqkfOz7cPKoeNcDB4zMuDCeW9L0ZgJKCGb/8
il6OPxrAxcUZufsVP8Hps47kvb4BTv2fUOyfQE1nDcA1BQJLWrrxTkQ1pVyJ
BUexZzlu5Z1g25tlLDzVtEs8S+nAm5pZYVo6LE79HdAXsP5riz4LQgHZnrss
OuDb92BjkCkLY6t6/nftXPuf+7ayEL4j1fyWQDsOBJ6mH7Rmcepjwl96S3b3
HhZiBoMaX1kyQVHYqGt/goUicfnCPAMGTrh667S4sWb88s4wDUW3kyysmSs4
+4Yig+PnWPgRJx7ykYuBWm4xJ99g1oxfNTuX+cY6igUPF/Gmf/RoCLBL3DV+
h4Wf/+Q+5/vZguIae8fjD1kz/pC9b9JZWHq14quIIAX+A4JmD6diI2Wn2gRu
Cha2ftBPmYqn/aBklodS9lT8Ktv4KN9EI+bldL01KGFhO2VTjs6WejjwC24c
LWfN+LmYI4PzX9ewoCj6iGROvVeUv788HNrAwnvr2e9bAmuw+FZYoFcLa8a/
aRQfNLRksnD316P/SdpXwnBPXk5EBwsCDYmKh9QrQPNYUqHfw5rxb2aTrwLN
+ljgr3RaW+FVgr6H8a0mQ1P5qOpmCwsUomNdb/CSYdaMf/Ox9rD2HWFBxtzN
6rZrHn7lJwpkfWdhtQhV++WTTLSaPNxm9YM14998zqoqP5+K7e6XV1ntS0dZ
7M7rfpMs8Hj1PpfkT8TFX2GtNyZZM/5NWTn+0n9TsYmo2eLlzKdY9B93z69f
LNB122/3uG7G6NxF7NiuRWU86dhm/B+IL3wg
     "], {{}, {}, 
      TagBox[
       TooltipBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
          18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
          35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
          52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 
          69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 
          86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 
          102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 
          115, 116, 117, 118, 119, 120}], LineBox[CompressedData["
1:eJwt0kkiFgAAQOHfUJlKyQVcyREcgLUpUkKSNChClEoTSckQjSiJTJWSIiRk
qCRFfAuLb/8WLy4hKT4xKBAIlJFMCqmkkc4BMsjkIFkc4jDZHCGHXPI4Sj7H
KOA4hZygiJOc4jRnKOYs5yihlPPbPeVUcIFKqrjIJaq5zBWuUsM1rnODm9yi
ljpuU88dGrjLPRq5TxPNtNDKA9po5yGPeMwTnvKMDjrp4jkv6OYlPbyilz5e
088AgwwxzBve8o4R3vOBUT4yxic+M84EX5hkimm+MsM3Zpljnu8ssMgSy/zg
J79Y4Ter/GGNv/xjnQ3+s0nAJEEEE0IoO9jJLsIIJ4JIotjNHqLZyz5i2E8s
WzWFZls=
          "]]},
        RowBox[{
          RowBox[{
            RowBox[{"0.07152330911474081`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.9999999999999999`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.14250797266425547`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}], "+", 
            RowBox[{"1.928476690885259`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  FractionBox[
                   RowBox[{"0.8017483232159999`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.752899999999997`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"0.8017483232159999`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    TagBox["tt", HoldForm]}]]}]}], "]"}], "]"}]}], ")"}]}], 
                   RowBox[{
                    RowBox[{"22.752899999999997`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"0.8017483232159999`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], ")"}]}], "+", 
            RowBox[{"2.636873802114136`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.9999999999999999`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.14250797266425547`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}], " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  FractionBox[
                   RowBox[{"0.8017483232159999`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"22.752899999999997`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"0.8017483232159999`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    TagBox["tt", HoldForm]}]]}]}], "]"}], "]"}]}], ")"}]}], 
                   RowBox[{
                    RowBox[{"22.752899999999997`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"0.8017483232159999`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], ")"}]}]}], "\[Equal]",
           "0"}]],
       Annotation[#, 0.07152330911474081 (Log[
             HoldForm[$CellContext`tt]] + 
           0.9999999999999999 (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.14250797266425547`] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) + 1.928476690885259 (Log[
             HoldForm[$CellContext`tt]] + 
           0.8017483232159999 
            HoldForm[$CellContext`x]^2 (22.752899999999997` + 
              0.8017483232159999 HoldForm[$CellContext`x]^2)^(-1) (
             1.9635100260214235` + Re[
               PolyGamma[0, 0.5 + Complex[0, 
                   Rational[1, 2]] Pi^(-1) 
                 HoldForm[$CellContext`tt]^(-1) (22.752899999999997` + 
                   0.8017483232159999 HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) + 2.636873802114136 (Log[
             HoldForm[$CellContext`tt]] + 
           0.9999999999999999 (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.14250797266425547`] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) (Log[
             HoldForm[$CellContext`tt]] + 
           0.8017483232159999 
            HoldForm[$CellContext`x]^2 (22.752899999999997` + 
              0.8017483232159999 HoldForm[$CellContext`x]^2)^(-1) (
             1.9635100260214235` + Re[
               PolyGamma[0, 0.5 + Complex[0, 
                   Rational[1, 2]] Pi^(-1) 
                 HoldForm[$CellContext`tt]^(-1) (22.752899999999997` + 
                   0.8017483232159999 HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) == 0, "Tooltip"]& ]}], {}}, {{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{0.07141379310344828, 5.339265850945495}, {
       0.11803448275862069`, 5.079718205413423}, {0.1740344827586207, 
       4.82017055988135}, {0.2403793103448276, 4.523544679273266}, {
       0.2924137931034483, 4.263997033741194}, {0.3445172413793104, 
       4.041527623285132}, {0.5300344827586208, 2.966258806080831}, {
       0.6276896551724138, 2.5954764553207266`}, {0.8590689655172414, 
       1.2235817575083427`}, {0.9763793103448277, 0.4449388209121246}, {
       0.8965517241379312, 0.}}]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}},
  AspectRatio->1,
  AxesLabel->{None, None},
  AxesOrigin->{0.05, 0.},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
    "\"T/\\!\\(\\*SubscriptBox[\\(T\\), \\(c\\)]\\)\"", TraditionalForm], 
    FormBox[
    "\"B/\\!\\(\\*SubscriptBox[\\(B\\), \\(p\\)]\\)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "GridLinesInFront" -> 
    True},
  PlotRange->{{0.05, 1}, {0, 6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7725404553920774`*^9, {3.7725404969200706`*^9, 3.772540522382329*^9}, 
   3.788780954654315*^9, 3.7887829980274057`*^9, 3.78878396571154*^9, 
   3.7887841703974113`*^9},
 CellLabel->
  "Out[1919]=",ExpressionUUID->"3cad56e2-7375-4058-88d2-a2291ed65dfd"]
}, Open  ]],

Cell["", "PageBreak",
 PageBreakBelow->True,ExpressionUUID->"b93334db-9d3d-499c-949c-2c599991addd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", 
    RowBox[{"3", "-", 
     RowBox[{"Sn", "/", "12"}], "-", "PbTe"}], "*)"}], "Title"], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Tc", 
     StyleBox["=",
      FontSize->16], 
     StyleBox["0.71",
      FontSize->16]}], 
    StyleBox[";",
     FontSize->16], 
    RowBox[{"(*", 
     RowBox[{"Tc", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], "*)"}], "\n", 
    RowBox[{"Bp", "=", 
     RowBox[{"1.86", "*", "Tc"}]}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Pauli", " ", "limit", " ", "Bp"}], "=", 
     RowBox[{"1.86", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"parallel", " ", "field"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FFLOS", "=", "3.24"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "largest", " ", "Hc2", " ", "for", " ", "FFLO", " ", "state", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], ",", "Tesla"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataFFLO", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", " ", 
         RowBox[{"0", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.987037037", ",", " ", 
         RowBox[{"0.124145786", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.966666667", ",", " ", 
         RowBox[{"0.211845103", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.925925926", ",", 
         RowBox[{"0.315489749", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.886111111", ",", 
         RowBox[{"0.386104784", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.858333333", ",", " ", 
         RowBox[{"0.427107062", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.823148148", ",", " ", 
         RowBox[{"0.466970387", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.767592593", ",", " ", 
         RowBox[{"0.51594533", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.734259259", ",", " ", 
         RowBox[{"0.541002278", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.699074074", ",", " ", 
         RowBox[{"0.561503417", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.652777778", ",", " ", 
         RowBox[{"0.583143508", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.598148148", ",", " ", 
         RowBox[{"0.60022779", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.555555556", ",", " ", 
         RowBox[{"0.61047836", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.521296296", ",", " ", 
         RowBox[{"0.617312073", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.462962963", ",", " ", 
         RowBox[{"0.630979499", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.405555556", ",", " ", 
         RowBox[{"0.648063781", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.37037037", ",", " ", 
         RowBox[{"0.662870159", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.312037037", ",", " ", 
         RowBox[{"0.690205011", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.277777778", ",", " ", 
         RowBox[{"0.709567198", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.233333333", ",", " ", 
         RowBox[{"0.739179954", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.185185185", ",", " ", 
         RowBox[{"0.776765376", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.140740741", ",", " ", 
         RowBox[{"0.814350797", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.092592593", ",", " ", 
         RowBox[{"0.86332574", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.072222222", ",", " ", 
         RowBox[{"0.886104784", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.027777778", ",", " ", 
         RowBox[{"0.946469248", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0", ",", " ", 
         RowBox[{"1", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "parallel", " ", "Hc2", " ", "at", " ", "1", "%", " ", "resistance", " ", 
      RowBox[{"Unit", ":", "Tesla"}]}], ";", 
     RowBox[{"rescaled", " ", "as", " ", 
      RowBox[{"T", "/", "Tc"}], " ", "and", " ", 
      RowBox[{"B", "/", "Bp"}]}]}], "*)"}], "\[IndentingNewLine]", 
   StyleBox[
    RowBox[{
     RowBox[{"data", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.02139", "/", "Tc"}], ",", 
          RowBox[{"3.23851", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.04973", "/", "Tc"}], ",", 
          RowBox[{"2.87902", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.06812", "/", "Tc"}], ",", 
          RowBox[{"2.74945", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.09024", "/", "Tc"}], ",", 
          RowBox[{"2.58563", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.10833", "/", "Tc"}], ",", 
          RowBox[{"2.47776", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.13071", "/", "Tc"}], ",", 
          RowBox[{"2.3791", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.1698", "/", "Tc"}], ",", 
          RowBox[{"2.29613", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.20968", "/", "Tc"}], ",", 
          RowBox[{"2.13799", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.22758", "/", "Tc"}], ",", 
          RowBox[{"2.08915", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.26205", "/", "Tc"}], ",", 
          RowBox[{"1.9759", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.30538", "/", "Tc"}], ",", 
          RowBox[{"1.83872", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.3768", "/", "Tc"}], ",", 
          RowBox[{"1.62153", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.46004", "/", "Tc"}], ",", 
          RowBox[{"1.35574", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.54783", " ", "/", "Tc"}], ",", 
          RowBox[{"1.03472", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.66477", " ", "/", "Tc"}], ",", 
          RowBox[{"0.58185", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.73827", "/", "Tc"}], ",", 
          RowBox[{"0.30282", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.74", "/", "Tc"}], ",", "0", ",", "0.02"}], "}"}]}], 
       "}"}]}], ";"}],
    FontSize->16], "\n", 
   RowBox[{"(*", 
    RowBox[{"multiband", " ", "parameters"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda11", "=", "3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda22", "=", "0.65"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda12", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     StyleBox["a1",
      FontSize->16], 
     StyleBox["=",
      FontSize->16], 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["+",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", "=", 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["-",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a0", "=", 
     FractionBox[
      RowBox[{"2", "\[Times]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"lamda11", "\[Times]", "lamda22"}], "-", 
         SuperscriptBox["lamda12", "2"]}], ")"}]}], 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         StyleBox[
          RowBox[{"(", 
           RowBox[{"lamda11", "-", "lamda22"}], ")"}],
          FontSize->16], "2"], "+", 
        RowBox[{"4", "\[Times]", 
         SuperscriptBox["lamda12", "2"]}]}]]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"betaf1", "=", "2.54"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "beta_so", " ", "for", " ", "the", " ", "major", " ", "band", "*", "in", 
      " ", "unit", " ", "of", " ", "2.1", "*", "Tc"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"betaf2", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"scalef", "=", "1.12"}], ";", " ", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
      "coefficients", " ", "related", " ", "to", " ", "Lande", " ", "g"}], 
      "-", "factor"}], "*)"}], 
    RowBox[{"(*", 
     RowBox[{"Bp", "=", 
      RowBox[{"scalef", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ff1", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["scalef", "2"], "\[Times]", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}], 
        RowBox[{
         SuperscriptBox["betaf1", "2"], "+", 
         RowBox[{
          SuperscriptBox["scalef", "2"], "\[Times]", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["betaf1", "2"], "+", 
               RowBox[{
                SuperscriptBox["scalef", "2"], "\[Times]", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ff2", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["scalef", "2"], "\[Times]", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}], 
        RowBox[{
         SuperscriptBox["betaf2", "2"], "+", 
         RowBox[{
          SuperscriptBox["scalef", "2"], "\[Times]", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["betaf2", "2"], "+", 
               RowBox[{
                SuperscriptBox["scalef", "2"], "\[Times]", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"aa", "=", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"a0", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}], "\[Times]", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a1", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a2", "*", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}]}], "\[Equal]", "0"}], ",", 
       RowBox[{"{", 
        RowBox[{"tt", ",", "0.02", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "2.5"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"{", 
     RowBox[{"aa", ",", 
      RowBox[{"ListPlot", "[", 
       RowBox[{"Take", "[", 
        RowBox[{"data", ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", 
           RowBox[{"Length", "[", "data", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Take", "[", 
         RowBox[{"dataFFLO", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"Length", "[", "dataFFLO", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], ",", 
        RowBox[{"ColorFunction", "\[Rule]", "\"\<Rainbow\>\""}]}], "]"}]}], 
     "}"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.739102175399826*^9, 3.739102196393523*^9}, {
   3.739102331187825*^9, 3.7391023454625196`*^9}, {3.739103650457354*^9, 
   3.73910365269709*^9}, {3.739147256523315*^9, 3.739147441257086*^9}, {
   3.739147472494151*^9, 3.7391474729396544`*^9}, {3.73914750866812*^9, 
   3.739147509033792*^9}, {3.739147542638554*^9, 3.7391476807340517`*^9}, 
   3.739147866946693*^9, {3.739147941115942*^9, 3.7391481850060387`*^9}, {
   3.7391482401191587`*^9, 3.739148436180442*^9}, {3.73914850242619*^9, 
   3.739148544738825*^9}, 3.739148624755075*^9, {3.7391486586343718`*^9, 
   3.739148659190963*^9}, {3.7391486909651823`*^9, 3.739148904272581*^9}, 
   3.7413482436301537`*^9, {3.741348555761228*^9, 3.741348583375167*^9}, 
   3.7413486704266*^9, {3.7413487033811293`*^9, 3.7413487470444098`*^9}, {
   3.7413489007803593`*^9, 3.741348966109733*^9}, {3.741349024760106*^9, 
   3.741349101609005*^9}, {3.741349163121254*^9, 3.74134934459652*^9}, {
   3.741349665014824*^9, 3.7413497489166193`*^9}, 3.741350312667904*^9, {
   3.7413503526499434`*^9, 3.7413503600550747`*^9}, 3.741352077078764*^9, 
   3.7413521250328217`*^9, {3.741352449773336*^9, 3.7413524502432528`*^9}, {
   3.741352488226451*^9, 3.7413525495410347`*^9}, 3.741353866327914*^9, 
   3.7413539217015944`*^9, {3.7428762449254637`*^9, 3.7428764249920797`*^9}, {
   3.742876554242976*^9, 3.742876666038617*^9}, {3.742876766670405*^9, 
   3.742877030090322*^9}, {3.742879816427549*^9, 3.742880025896957*^9}, {
   3.7428801073940887`*^9, 3.742880239921596*^9}, {3.742880275960535*^9, 
   3.7428804870971117`*^9}, {3.7428805374762278`*^9, 3.742880537969866*^9}, {
   3.74288056984235*^9, 3.742880589883847*^9}, {3.742880631217258*^9, 
   3.7428808044317513`*^9}, {3.742880927753875*^9, 3.7428811137341833`*^9}, {
   3.742881154961471*^9, 3.7428813345141163`*^9}, {3.742881388773234*^9, 
   3.7428815249260387`*^9}, {3.7428815623375463`*^9, 
   3.7428815662949753`*^9}, {3.742881598472932*^9, 3.742881674591114*^9}, {
   3.742881716033863*^9, 3.742881767090048*^9}, {3.742881932061864*^9, 
   3.7428820048369617`*^9}, {3.742882260336389*^9, 3.742882294460621*^9}, 
   3.7428823707292*^9, {3.742882418422101*^9, 3.742882418723472*^9}, {
   3.74288355939159*^9, 3.7428835598359747`*^9}, 3.742884075790196*^9, 
   3.742884106513248*^9, 3.742884147299919*^9, {3.7428841795849743`*^9, 
   3.742884186880262*^9}, {3.742884234690473*^9, 3.742884297811964*^9}, {
   3.7428849208900223`*^9, 3.7428849696372766`*^9}, {3.742958321224535*^9, 
   3.742958334639358*^9}, {3.742958382379582*^9, 3.742958436980788*^9}, {
   3.7567070104032483`*^9, 3.7567070467992916`*^9}, {3.75670708788931*^9, 
   3.756707105731181*^9}, 3.756722441832169*^9, 3.756727141333909*^9, {
   3.7571157437315407`*^9, 3.7571160133026543`*^9}, {3.7571160593126154`*^9, 
   3.7571160734627748`*^9}, {3.757123111448715*^9, 3.757123126606141*^9}, {
   3.7571231767320967`*^9, 3.7571232112747197`*^9}, {3.757124201640293*^9, 
   3.7571242133908696`*^9}, {3.7724166795225315`*^9, 
   3.7724167091912193`*^9}, {3.7724167396295967`*^9, 
   3.7724169415920887`*^9}, {3.7724169840572505`*^9, 3.772417143115491*^9}, {
   3.7724171757496033`*^9, 3.7724171762516575`*^9}, {3.772539416929384*^9, 
   3.772539487218929*^9}, {3.772539525043247*^9, 3.7725395838893356`*^9}, {
   3.7725396156786256`*^9, 3.772539624873166*^9}, 3.7741979209346695`*^9, {
   3.774197980601191*^9, 3.7741982290436993`*^9}, {3.7741982987229104`*^9, 
   3.7741983336415844`*^9}, {3.774198397823378*^9, 3.774198416510507*^9}, {
   3.774198942057431*^9, 3.774199209353558*^9}, {3.7741993268535337`*^9, 
   3.7741993383044453`*^9}, {3.7741993726315584`*^9, 
   3.7741993906679773`*^9}, {3.774199421123663*^9, 3.7741994223459296`*^9}, {
   3.788757919611711*^9, 3.788757948118416*^9}, {3.788779652784357*^9, 
   3.7887796528582077`*^9}, {3.788779875101369*^9, 3.788779875247395*^9}, {
   3.788781047125884*^9, 3.7887812846120033`*^9}, 3.78878257787122*^9, {
   3.788783011644154*^9, 3.788783012705448*^9}, {3.7887839782914457`*^9, 
   3.78878399443425*^9}, 3.788784173702983*^9, 3.7887861057423153`*^9, {
   3.78878803816603*^9, 3.788788047421821*^9}},
 CellLabel->
  "In[2331]:=",ExpressionUUID->"5cc24e35-df45-442f-9d7a-3499cb7f57a1"],

Cell[BoxData[
 GraphicsBox[{{GraphicsComplexBox[CompressedData["
1:eJw9Vgk4lWkb5iBTKS2KMpkkRQlZp4a5TyktKkJFyRLxmwZtUipt0jSN7Siy
RlTI2IrQKcfZ7MrOUDnHdnA49i3Dr2+O3uuc67ve63q+932e+7nv+3sUT3mY
nyaJiIg0z/6/PVW23Sh+vPwJRIglTo79x8Qqf1McfjJKm3c4V4w8v1I3pmgy
DgGVqicVHouRtYkVD3WlWmWqgxj5Nz01uo58Aijr983+xMj9yyfMzps/h8UJ
ZQ/Kotn30015d4uTsD81xPtGMomcdFBaqyUpGUQ4hUTWCVisULf0JWJv2Ayo
3CORVW0C6SMqKTDjGPtruJDIkYGtDdbnU+HWlO3WpEci96k93p1llo7Xn9Lr
Fs4nkQ0WTa3VfZ+BbCJAlHxE9dNVKl4hUH3mjnSAKNkm9Sf3OKksdGeae2sd
FCU3BPaZyB3IBnH9elGydgbVkX8zG8cvDHU+WSVKXlAff9ZwwRtUbYyOLZEQ
JWtWRw0p/5AHduuOeFayCNm353COwt23aFsniIm4KkJWz1JVvz2fimYiARHy
vfXyrido75AxUr2gGiLkGWLlozP3Al9fVIR85anOz5dqabDyNjUtypjB61V/
aLlFFgjfn8F0jcnDQS4dzaG7yE97puEtk7qH480EZU1i2B3radCOStVPzGMh
KF3DJUVtGrYUgfnbSJawf9P456ZoTiIKEf/eMfHAxX8xovIN0CJE3+brL+NP
4cLWKIdVD4qxd+OALK9gCu83kFrsfimBMgHIFKSti5b6dJaiJPygV4/MFGbB
mEWkHKv/rQtref4VX36+tGeLRQW6y87Kfvj9K37s8FJ64PkB+wk8v8Lg5IlD
Fs4fUbuvy0mueBKjxP0fcX/ebcVSn0kwdzzm70uqhPFqBxxXnYSuyMVLB2Kq
4P6tfdkTGDjS8kPbQBUmUpdm6vhP4D++VcPP/B77jdsEQk4ekti0oUZY7wT6
4//pjUENLFtr7S2Hx/Hio1FHbW4N5LTttPLejQvzr0Xw/Tj7sd/HkaXsaTlC
qYWU1VSgpN04jvV/ah4sqhXydxz5TPfdgu46+KgdlE8vG8M39GVS63EhnWbw
8vIYEt3jTsQYN6AyT3Eiy2AM9hGZfAmDRrwh+DcKj4oNyRnPGsH5YbN/e+oo
+N/o0tOIjZYho/ODR6F5FNfaJJuwJ0du3nKlUcyTGnTdKtOEX/xdD25TGMV/
/G+GewBdriZjBGJrhp/d62gW8mMEV7YcHnta+wl3hiPEnJaOwJlYn2GkL+h/
Uz+Mk1/2W9zHF7imn2rw/nMY3bvzXGp2tUDxfxSHzCXDMP+WzuEWHNpJSVss
OYwN7O67lCMteBWjFJkoPozDEStkNti0CPEdBocgYAt0/y7ckhw9hHsZS870
LOSgMWD89b0bQ3CQHjrgdIwjxG9IiDcH3q9uRcjoDWEoWzATSOfgR12qVeHk
IHbvjHzRY8kV6n8QCc6R9nZXuNjGfEsxvDSIb9XbBHJhvTp+4rjTIB566V3o
b+HCUiFA/JdNg7iXr+Q5oNEKEhfRpwcGhP1pRfuvXx+IBg8A1b1qZe2tcLO1
ZcefGUBzn87O8b1tQr0PQMzNukc0sg3hIqdvS7f3o4xYbbDd2fnXj/n9ONL6
Nf7N9nYh3v04Vn62yN60HaJ0T1XXk/3wWFDOaQxqx7lfPcNvbepHN9HfdmRY
aD8xZAvg4iLxSoLUAdkIZz2FFwK4ngy9fkOlQ3ieAB9J42KFmR3wKXJ0exzQ
h/mE33QildN0pm20Fxb1zZQ0h078tuR8rM25Xiw8Jc1k8TqF+uRDxy2o1WMx
D9c3L1oYe4gPQl4qPCQpPYmzl+ejYtsaA99sHiglNYvUVHvATazwTcrhoUjx
Nu2ccg+MiYZ2wV3L0MFqVTf+Egnt67rRJdRfFxLJ677MJ3UjYDzZqHb2HCeC
X93QiMzglXA6UWxgsmhvXDfig87xnp7rxO4cvZD+rm4h/zugsNCxxtigBx/G
3gVFKHbgDuGXPbh6+5HNxrPt2Fcub3qrqgcz0Xf1XVltKOBkrOes5wv51oYt
kX++cHbkw9dw56noE614ShCKD67KuabjCVzEtsXJWvfxYe+w+lEClwNnJjXY
Z2uvsL8cMLb4SKSc74WH79BNtlULaIQB9mJ3Q+jzMMpnkFdt7IoV9KIzLVpr
++VPKHdgdKku7RPysRmKngEpp5z6kPaKGrh0xT+gnl0XFRndB3F2TnWGTgOu
Na80iWH1CeutgwXb+xfJD304ZSOTecinDi2EXvqwbkb5tH9pLYpHqctJSwTC
+mogdexJxht1AZx+eqaXlFaFmb96ZFn6Atzd3RSRa1wFKZO1SuvNBMJ6KoV6
EmDtoP1lamMF2OKqy71vCtA9r5nL1S6HhcL58g1+AmH+ZWAWML/4BQngPu7c
wjtQitqt423n4gXg7FcKaOAUwTjp+naNTIEwfzYIO8gRYHT+giLNDhac/cZ/
+7dAgGWLEtRTTjHh2DFfnVcogKqt3JIhewa0q2pVjWvm8itArs0PIkpNAsgE
5FNrrPIh5a3JSeDM5UNFUHWozud2AS4zVuROXsvD2ZXixy27ZnVwkeIrm5yD
3lzdtBD+XD7ZuOP1KIDdJwDT/K1M19UsaErEBlOHBPjioGraoJAJUvHLmBUj
c/dnQLVEZ7fYqABcfXlFmlU6wmxn5tEmBYgK+/guK+MF2t+N/7zh69z5z7H+
s8afZ2b3zrkyWj5rn0PXULn97fSsTvvqdhTuDAOV9vxh8fRcfCiaZHionN3X
mK90bvUOhZGaB39mRoDYUtf7/c16IL9/ROzJJW9iXJr0cJX4Xj9EXJbdGvZg
AVZ479padDAMJMeXGSsX0tGU/ap++7EISOtMe1IU6cL+RkP7d5XbZ0zpeLuu
0bqWEYsAUnDzufN0mImv9rsuH4e/rbgrt3nTQTu9PbJZ8qkQXzrm5rGzXkf8
617RYbRyYbQXPwGFJE/bhx10HAuRNB/Wfg7FUDOdxsUMoV++wJ7RqpRAIwbk
lWW2R2cngif1R/7+Ywz4Vz4t5yW/xI4/Og5FpTEwN48p3HowpJ3PwLLOZYoL
qlKFfGbCPTJXWVcjHS4RmYnGakzcefZc/KJfOvo2H8sUNWIK/TwTlnxV/ag4
JqaXBU3yVV5j4t2XCYlKptB/X8Pwj/77EcNMmG4waxFNzIJk0o7OcFkW5uYx
88028o3qLNR3B+rqWuXA+O+pqfNbWSDK2ZOLSM2Jd59NWeCmhAgW2+UhQq7x
obUTC3Pz2ljYo7jmoyxUmFye6n1Axb7XU476s/HFwQc9ruRT0Xlt3MlrPwtE
uvR3MOGpHUjZyYLPmmePGZnvsTw9YMJBiwXj7ftKpeTzkR0ypCm5noW5+W4g
Lzm+ZSkLRqF+dis+0IBnV3w3ljJByEuhAConFRIb6EwUuz68RXEsQNCBXHpC
GhNVske0QmXpuHuk2jfIngmCDoZ0/G9x/5MKi1l8o68dPdpN/453yCf/cMFe
BmhlPrdHKhgg2mPDwKMl/pQyGgP2ptZWhdcZMA8IFxgkM7BmgJM3oMGE3q3j
dnVkxvd5Uoet+jlHjAGz/IjM/bN573x/wsk4gY5wYrFwKZt6bdmPdIRMpTYV
RbG/6z24YsnyjelsqMuI3qBKFwj9gw2JDvWMYPECmJ0pTC7/wAbtrr5WMm8W
hzxrWzfPQqR8VNkUuJmGum/trC9E9FiN6cCv+VDteammv7VoNo525qTte7R8
kPXdVVj03T/m5tegqLXMoc63WPn3Y2mXU8UIKaXFTrnkIbmakhY1O8+a+YU3
TNbngihPpgRaYWEaPMobKIK34/OOku/+IuG2WlblbQncq/2Ojl56DS1CP6V4
EtpeoRibAQkRr5uq+0q/+4u0/Xa7Ks9SJC7dp2MZl4Yi82Ky3atSHJ9e8ejQ
2Euk3HjtIfm19Lu/VO81lKxcXoa9mhM6OQ4JIL5+h8uQzebOM/kzHHGTajT9
E2XQ1Chp3BIeBq/+XRw527LvflN8kWtGti/DolXVFsPZj2CfevnQzLUyWFXc
WSN+/wym5cIqz96ci+/49f8QQ9Eo
     "], {{}, {}, 
      TagBox[
       TooltipBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
          18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
          35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
          52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 
          69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 
          86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 
          102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 
          115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 
          128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 
          141, 142, 143, 144, 145, 146, 147, 148, 149}], 
         LineBox[{150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 
          162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 
          175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 
          188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 
          201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 
          214, 215, 216, 217, 218, 219, 220}]},
        RowBox[{
          RowBox[{
            RowBox[{"0.07984536437142165`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"1.`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.23540161998881587`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}], "+", 
            RowBox[{"1.9201546356285784`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  FractionBox[
                   RowBox[{"2.1876539811840003`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"6.4516`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"2.1876539811840003`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    TagBox["tt", HoldForm]}]]}]}], "]"}], "]"}]}], ")"}]}], 
                   RowBox[{
                    RowBox[{"6.4516`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"2.1876539811840003`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], ")"}]}], "+", 
            RowBox[{"1.3312875579307093`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"1.`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.23540161998881587`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}], " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  FractionBox[
                   RowBox[{"2.1876539811840003`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"6.4516`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"2.1876539811840003`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    TagBox["tt", HoldForm]}]]}]}], "]"}], "]"}]}], ")"}]}], 
                   RowBox[{
                    RowBox[{"6.4516`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"2.1876539811840003`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], ")"}]}]}], "\[Equal]",
           "0"}]],
       Annotation[#, 0.07984536437142165 (Log[
             HoldForm[$CellContext`tt]] + 1. (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.23540161998881587`] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) + 1.9201546356285784` (Log[
             HoldForm[$CellContext`tt]] + 
           2.1876539811840003` 
            HoldForm[$CellContext`x]^2 (6.4516 + 
              2.1876539811840003` HoldForm[$CellContext`x]^2)^(-1) (
             1.9635100260214235` + Re[
               PolyGamma[0, 0.5 + Complex[0, 
                   Rational[1, 2]] Pi^(-1) 
                 HoldForm[$CellContext`tt]^(-1) (6.4516 + 
                   2.1876539811840003` HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) + 1.3312875579307093` (Log[
             HoldForm[$CellContext`tt]] + 1. (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.23540161998881587`] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) (Log[
             HoldForm[$CellContext`tt]] + 
           2.1876539811840003` 
            HoldForm[$CellContext`x]^2 (6.4516 + 
              2.1876539811840003` HoldForm[$CellContext`x]^2)^(-1) (
             1.9635100260214235` + Re[
               PolyGamma[0, 0.5 + Complex[0, 
                   Rational[1, 2]] Pi^(-1) 
                 HoldForm[$CellContext`tt]^(-1) (6.4516 + 
                   2.1876539811840003` HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) == 0, "Tooltip"]& ]}], {}}, {{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{0.030126760563380282`, 2.452301983946691}, {
       0.07004225352112677, 2.180084809934878}, {0.09594366197183099, 
       2.0819703165227925`}, {0.1270985915492958, 1.957920642132364}, {
       0.1525774647887324, 1.8762380736029076`}, {0.18409859154929578`, 
       1.8015296077540512`}, {0.23915492957746481`, 1.7387021051037406`}, {
       0.29532394366197184`, 1.6189535059821292`}, {0.32053521126760565`, 
       1.5819703165227927`}, {0.36908450704225354`, 1.4962138421929425`}, {
       0.430112676056338, 1.3923368165985157`}, {0.5307042253521127, 
       1.2278736937755566`}, {0.6479436619718311, 1.0266091170679994`}, {
       0.7715915492957748, 0.7835226412236863}, {0.9362957746478874, 
       0.4405951840072694}, {1.0398169014084508`, 0.22930486142662423`}, {
       1.0422535211267607`, 0.}}]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, {{}, 
    GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQDQEf7GEs2yTrTeemvre/fOXdec+6y/b8+2Xev3v3
zp7HbtvNIwsf2AdzhGXoL3xrfzp97td7R17YBxzw3sAa/cZeeF7qFIWAd/YR
yz3Ly8tf2/ve/SgifeSD/ZeOtyeswl/ZfzrueXpzyCf7pONF4XITXtiHWTxX
uOvwxV5QjM2Nt/65fXjTy6urbL7ar/2+cvqFuGf2FZye1hu4vtn/lGCy7Hv8
xJ5NOn2L+pNv9gdDd01lV3lsvznz0d1r/d/tPxqyFMkcf2h/t/LZhJvfvtu/
ELw9sXTdA/vJgWwcbdY/oO69a/+fwe3bvSM/7D1P5XnN/3LTfrX/Qfm+gp/2
h9csfqO65bp9U+d+xUjWX/buE50Ns35cto96YfePS+I31PyL9gJP7/vPu/Xb
Pn6u2t27d8/a74u4E2zC8heq/7j9/uPxj1/U/rPfs/z581PMh+z751oVzf3+
394h7+Q71S3b7X+yvUl+/JHB4crFjovqtZvs+xeu04pIYXQQl3dWOF44x74o
qsti+WQmB1g8iJRocS9YwOwwGj+DO34Ay8GYFw==
     "], {{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18, 19, 20, 21, 22, 23, 24, 25, 26},
         VertexColors->Automatic]}}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
       1.6]}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
        1.6]}, {}}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
        1.6]}, {}}},
     VertexColors->CompressedData["
1:eJzt0u0v1AEAB/DDzMOmrrJbRh4qlKdrEXq4fYVZHuJytljr4cwlVmEoRnRI
WeNGW06bp8rTYrpSs3XOiXNcV3k6js7D4e7nHiykh3lI/opeefH5Dz4OsUmR
LEMSieS1zWjb8jn+mUrXKXi3apsp8g+Y2ypppE/OINsryiDZagD32zdELk1S
pE8HH3UrXUB9TD+jxXUAPWaBAmNMYCHQ97z1igZaQhq1JBhG6KYt95F8FlTK
teqCQgIz9bcjjBVj2GVy2YYMFahqSdYh8jx6E9m6EtEEcgiBdbe3GtQjfz3H
x5WQ+IguHDOdAg99zDWlGoYeVnsVZdMoJ60dUBxXgsMmV1/MIBCX6dm2rphA
J5UfF3NjFn/a3z5trCPgbxFA6eyS47XmaXQpaw6MFMMQvoTAqVqnnGLTMeRu
WjTEZs5D0rHf/F4/gUWx7d3HPBmuSCMs7zBUqHGrWv/VS8CR5Th3s2EEYSf4
ReGjKojqI2NSRQRIquXvQpMRoDs+r8hdDSMHh8XkHgKBzU7h4ZXDqLMT+w7L
1GhlxmvYbwjU9di7pWuG4J6b0RZQRSBhCVfz8wjYTaexPtKGIHoXVLgWuoDU
9gozXTSBqMnas6uNg2C3xKWzHmhwmp7LURgQuO7JCfapGcCrMJPRBC8tyl/y
RBtsNYSz8t8WjgMoYdHcKX46RHOMghIFKnylcenMwS/o0Cpj0hz12JcmfHbL
fx6MNfPpbo/PoDR1FBTL9OhqIO/xeziLMmXST3n1J1S/yOdeUuqxah2SZc2d
gr0tS2fu0o9hvpefs1APYkWm7T35DcE2rCKGQoyDrqQnuw30eM+k88RBg5C2
GfyIMO6BVko7nJ2kw/MK5zHLPiHEcSlbpRohdr7tfPuf3/4BfZh+sQ==
      "]], {{}, {}}}},
  AspectRatio->1,
  AxesLabel->{None, None},
  AxesOrigin->{0.02, 0.},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "GridLinesInFront" -> 
    True},
  PlotRange->{{0.02, 1}, {0, 2.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7725394304130836`*^9, {3.772539508471387*^9, 3.7725395390592103`*^9}, 
   3.7725395851146812`*^9, 3.7725396261993256`*^9, 3.7741983364005475`*^9, {
   3.774198399687104*^9, 3.774198417566924*^9}, 3.7741992174167757`*^9, 
   3.7741993396086683`*^9, {3.774199373950798*^9, 3.7741993919200535`*^9}, 
   3.78875795668474*^9, {3.788781230307693*^9, 3.7887812855780373`*^9}, 
   3.7887830180470552`*^9, 3.788783997444455*^9, 3.7887841751857853`*^9, {
   3.788788039827752*^9, 3.78878804824292*^9}},
 CellLabel->
  "Out[2346]=",ExpressionUUID->"4351c9db-d6a1-4ec6-b8f6-8083976b2d86"]
}, Open  ]],

Cell["", "PageBreak",
 PageBreakBelow->True,ExpressionUUID->"d0af85ab-2e88-4a41-b496-579b47b0fcf3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", 
    RowBox[{"5", "-", 
     RowBox[{"Sn", "/", "15"}], "-", "PbTe"}], "*)"}], "Title"], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Tc", 
     StyleBox["=",
      FontSize->16], 
     StyleBox["1.14",
      FontSize->16]}], 
    StyleBox[";",
     FontSize->16]}], 
   RowBox[{"(*", 
    RowBox[{"Tc", " ", 
     RowBox[{"Unit", ":", "Kelvin"}]}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"Bp", "=", 
     RowBox[{"1.86", "*", "Tc"}]}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Pauli", " ", "limit", " ", "Bp"}], "=", 
     RowBox[{"1.86", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"parallel", " ", "field"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FFLOS", "=", "3.2"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "largest", " ", "Hc2", " ", "for", " ", "FFLO", " ", "state", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], ",", "Tesla"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataFFLO", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", " ", 
         RowBox[{"0", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.987037037", ",", " ", 
         RowBox[{"0.124145786", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.966666667", ",", " ", 
         RowBox[{"0.211845103", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.925925926", ",", 
         RowBox[{"0.315489749", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.886111111", ",", 
         RowBox[{"0.386104784", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.858333333", ",", " ", 
         RowBox[{"0.427107062", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.823148148", ",", " ", 
         RowBox[{"0.466970387", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.767592593", ",", " ", 
         RowBox[{"0.51594533", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.734259259", ",", " ", 
         RowBox[{"0.541002278", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.699074074", ",", " ", 
         RowBox[{"0.561503417", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.652777778", ",", " ", 
         RowBox[{"0.583143508", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.598148148", ",", " ", 
         RowBox[{"0.60022779", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.555555556", ",", " ", 
         RowBox[{"0.61047836", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.521296296", ",", " ", 
         RowBox[{"0.617312073", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.462962963", ",", " ", 
         RowBox[{"0.630979499", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.405555556", ",", " ", 
         RowBox[{"0.648063781", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.37037037", ",", " ", 
         RowBox[{"0.662870159", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.312037037", ",", " ", 
         RowBox[{"0.690205011", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.277777778", ",", " ", 
         RowBox[{"0.709567198", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.233333333", ",", " ", 
         RowBox[{"0.739179954", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.185185185", ",", " ", 
         RowBox[{"0.776765376", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.140740741", ",", " ", 
         RowBox[{"0.814350797", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.092592593", ",", " ", 
         RowBox[{"0.86332574", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.072222222", ",", " ", 
         RowBox[{"0.886104784", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.027777778", ",", " ", 
         RowBox[{"0.946469248", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0", ",", " ", 
         RowBox[{"1", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}]}], "}"}]}], ";"}], 
   StyleBox["\[IndentingNewLine]",
    FontSize->16], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "parallel", " ", "Hc2", " ", "at", " ", "1", "%", " ", "resistance", " ", 
      RowBox[{"Unit", ":", "Tesla"}]}], ";", 
     RowBox[{"rescaled", " ", "as", " ", 
      RowBox[{"T", "/", "Tc"}], " ", "and", " ", 
      RowBox[{"B", "/", "Bp"}]}]}], "*)"}], "\n", 
   StyleBox[
    RowBox[{
     RowBox[{"data", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.0199", "/", "Tc"}], ",", 
          RowBox[{"3.26", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.02942", "/", "Tc"}], ",", " ", 
          RowBox[{"3.16", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.03846", "/", "Tc"}], ",", " ", 
          RowBox[{"3.1", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.04768", "/", "Tc"}], ",", " ", 
          RowBox[{"3.02", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.05468", "/", "Tc"}], ",", " ", 
          RowBox[{"2.96", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.06039", "/", "Tc"}], ",", " ", 
          RowBox[{"2.92", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.07049", "/", "Tc"}], ",", " ", 
          RowBox[{"2.84", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.08544", "/", "Tc"}], ",", " ", 
          RowBox[{"2.76", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.10449", "/", "Tc"}], ",", " ", 
          RowBox[{"2.66", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.12136", "/", "Tc"}], ",", " ", 
          RowBox[{"2.58", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.15126", "/", "Tc"}], ",", " ", 
          RowBox[{"2.48", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.18176", "/", "Tc"}], ",", " ", 
          RowBox[{"2.36", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.19597", "/", "Tc"}], ",", " ", 
          RowBox[{"2.3", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.19643", "/", "Tc"}], ",", " ", 
          RowBox[{"2.3", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.23681", "/", "Tc"}], ",", "   ", 
          RowBox[{"2.2", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.28764", "/", "Tc"}], ",", " ", 
          RowBox[{"2.08", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.34083", "/", "Tc"}], ",", " ", 
          RowBox[{"1.96", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.41245", "/", "Tc"}], ",", " ", 
          RowBox[{"1.82", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.50678", "/", "Tc"}], ",", " ", 
          RowBox[{"1.64", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.58269", "/", "Tc"}], ",", " ", 
          RowBox[{"1.5", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.66196", "/", "Tc"}], ",", " ", 
          RowBox[{"1.36", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.74179", "/", "Tc"}], ",", " ", 
          RowBox[{"1.22", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.73962", "/", "Tc"}], ",", " ", 
          RowBox[{"1.24", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.7972", "/", "Tc"}], ",", " ", 
          RowBox[{"1.12", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.87593", "/", "Tc"}], ",", " ", 
          RowBox[{"0.98", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.97083", "/", "Tc"}], ",", " ", 
          RowBox[{"0.74", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1.09399", "/", "Tc"}], ",", " ", 
          RowBox[{"0.48", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1.1125", "/", "Tc"}], ",", " ", 
          RowBox[{"0.44", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1.13", "/", "Tc"}], ",", " ", "0", ",", "0.02"}], "}"}]}], 
       "}"}]}], ";"}],
    FontSize->16], "\n", 
   RowBox[{"(*", 
    RowBox[{"multiband", " ", "parameters"}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"lamda11", "=", "3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda22", "=", "0.65"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda12", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     StyleBox["a1",
      FontSize->16], 
     StyleBox["=",
      FontSize->16], 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["+",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", "=", 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["-",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a0", "=", 
     FractionBox[
      RowBox[{"2", "\[Times]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"lamda11", "\[Times]", "lamda22"}], "-", 
         SuperscriptBox["lamda12", "2"]}], ")"}]}], 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         StyleBox[
          RowBox[{"(", 
           RowBox[{"lamda11", "-", "lamda22"}], ")"}],
          FontSize->16], "2"], "+", 
        RowBox[{"4", "\[Times]", 
         SuperscriptBox["lamda12", "2"]}]}]]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"betaf1", "=", "2.35"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
    "beta_so", " ", "for", " ", "the", " ", "major", " ", "band", "*", "in", 
     " ", "unit", " ", "of", " ", "2.1", "*", "Tc"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"betaf2", "=", "0"}], ";", 
    RowBox[{"scalef", "=", "1.13"}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "coefficients", " ", "related", " ", "to", " ", "Lande", " ", "g"}], "-",
      "factor"}], "*)"}], 
   RowBox[{"(*", 
    RowBox[{"Bp", "=", 
     RowBox[{"scalef", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"arf", "=", "0"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
    "Rashba", " ", "SOC", " ", "for", " ", "the", " ", "major", " ", "band"}],
     "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"roupf", "[", "x_", "]"}], ":=", 
     RowBox[{"0.5", "\[Times]", 
      RowBox[{"(", 
       RowBox[{
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "*", "scalef"}], "+", "arf"}], ")"}], "2"], "+", 
          SuperscriptBox["arf", "2"], "+", 
          SuperscriptBox["betaf1", "2"]}]], "+", 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "*", "scalef"}], "-", "arf"}], ")"}], "2"], "+", 
          SuperscriptBox["arf", "2"], "+", 
          SuperscriptBox["betaf1", "2"]}]]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"roumf", "[", "x_", "]"}], ":=", 
     RowBox[{"0.5", "\[Times]", 
      RowBox[{"(", 
       RowBox[{
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "*", "scalef"}], "+", "arf"}], ")"}], "2"], "+", 
          SuperscriptBox["arf", "2"], "+", 
          SuperscriptBox["betaf1", "2"]}]], "-", 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "*", "scalef"}], "-", "arf"}], ")"}], "2"], "+", 
          SuperscriptBox["arf", "2"], "+", 
          SuperscriptBox["betaf1", "2"]}]]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ff1", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{"0.5", "\[Times]", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{
           RowBox[{"2", "\[Times]", 
            SuperscriptBox["arf", "2"]}], "+", 
           SuperscriptBox["betaf1", "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "*", "scalef"}], ")"}], 
            "2"]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"roupf", "[", 
             RowBox[{"(", 
              RowBox[{"x", "*", "Bp"}], ")"}], "]"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"roumf", "[", 
             RowBox[{"(", 
              RowBox[{"x", "*", "Bp"}], ")"}], "]"}], "2"]}]]}], ")"}], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             RowBox[{"roupf", "[", 
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "]"}], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}], "+", 
      RowBox[{"0.5", "\[Times]", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{
           RowBox[{"2", "\[Times]", 
            SuperscriptBox["arf", "2"]}], "+", 
           SuperscriptBox["betaf1", "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "*", "scalef"}], ")"}], 
            "2"]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"roupf", "[", 
             RowBox[{"(", 
              RowBox[{"x", "*", "Bp"}], ")"}], "]"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"roumf", "[", 
             RowBox[{"(", 
              RowBox[{"x", "*", "Bp"}], ")"}], "]"}], "2"]}]]}], ")"}], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             RowBox[{"roumf", "[", 
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "]"}], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ff2", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["scalef", "2"], "\[Times]", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}], 
        RowBox[{
         SuperscriptBox["betaf2", "2"], "+", 
         RowBox[{
          SuperscriptBox["scalef", "2"], "\[Times]", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["betaf2", "2"], "+", 
               RowBox[{
                SuperscriptBox["scalef", "2"], "\[Times]", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"aa", "=", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"a0", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}], "\[Times]", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a1", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a2", "*", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}]}], "\[Equal]", "0"}], ",", 
       RowBox[{"{", 
        RowBox[{"tt", ",", "0.015", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "1.6"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"aa", ",", 
       RowBox[{"ListPlot", "[", 
        RowBox[{"Take", "[", 
         RowBox[{"data", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"Length", "[", "data", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Take", "[", 
          RowBox[{"dataFFLO", ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", 
             RowBox[{"Length", "[", "dataFFLO", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2"}], "}"}]}], "]"}], ",", 
         RowBox[{"ColorFunction", "\[Rule]", "\"\<Rainbow\>\""}]}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<T/\!\(\*SubscriptBox[\(T\), \(c\)]\)\>\"", ",", 
        "\"\<B/\!\(\*SubscriptBox[\(B\), \(p\)]\)\>\""}], "}"}]}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.739102175399826*^9, 3.739102196393523*^9}, {
   3.739102331187825*^9, 3.7391023454625196`*^9}, {3.739103650457354*^9, 
   3.73910365269709*^9}, {3.739147256523315*^9, 3.739147441257086*^9}, {
   3.739147472494151*^9, 3.7391474729396544`*^9}, {3.73914750866812*^9, 
   3.739147509033792*^9}, {3.739147542638554*^9, 3.7391476807340517`*^9}, 
   3.739147866946693*^9, {3.739147941115942*^9, 3.7391481850060387`*^9}, {
   3.7391482401191587`*^9, 3.739148436180442*^9}, {3.73914850242619*^9, 
   3.739148544738825*^9}, 3.739148624755075*^9, {3.7391486586343718`*^9, 
   3.739148659190963*^9}, {3.7391486909651823`*^9, 3.739148904272581*^9}, 
   3.7413482436301537`*^9, {3.741348555761228*^9, 3.741348583375167*^9}, 
   3.7413486704266*^9, {3.7413487033811293`*^9, 3.7413487470444098`*^9}, {
   3.7413489007803593`*^9, 3.741348966109733*^9}, {3.741349024760106*^9, 
   3.741349101609005*^9}, {3.741349163121254*^9, 3.74134934459652*^9}, {
   3.741349665014824*^9, 3.7413497489166193`*^9}, 3.741350312667904*^9, {
   3.7413503526499434`*^9, 3.7413503600550747`*^9}, 3.741352077078764*^9, 
   3.7413521250328217`*^9, {3.741352449773336*^9, 3.7413524502432528`*^9}, {
   3.741352488226451*^9, 3.7413525495410347`*^9}, 3.741353866327914*^9, 
   3.7413539217015944`*^9, {3.7428762449254637`*^9, 3.7428764249920797`*^9}, {
   3.742876554242976*^9, 3.742876666038617*^9}, {3.742876766670405*^9, 
   3.742877030090322*^9}, {3.742879816427549*^9, 3.742880025896957*^9}, {
   3.7428801073940887`*^9, 3.742880239921596*^9}, {3.742880275960535*^9, 
   3.7428804870971117`*^9}, {3.7428805374762278`*^9, 3.742880537969866*^9}, {
   3.74288056984235*^9, 3.742880589883847*^9}, {3.742880631217258*^9, 
   3.7428808044317513`*^9}, {3.742880927753875*^9, 3.7428811137341833`*^9}, {
   3.742881154961471*^9, 3.7428813345141163`*^9}, {3.742881388773234*^9, 
   3.7428815249260387`*^9}, {3.7428815623375463`*^9, 
   3.7428815662949753`*^9}, {3.742881598472932*^9, 3.742881674591114*^9}, {
   3.742881716033863*^9, 3.742881767090048*^9}, {3.742881932061864*^9, 
   3.7428820048369617`*^9}, {3.742882260336389*^9, 3.742882294460621*^9}, 
   3.7428823707292*^9, {3.742882418422101*^9, 3.742882418723472*^9}, {
   3.74288355939159*^9, 3.7428835598359747`*^9}, 3.742884075790196*^9, 
   3.742884106513248*^9, 3.742884147299919*^9, {3.7428841795849743`*^9, 
   3.742884186880262*^9}, {3.742884234690473*^9, 3.742884297811964*^9}, {
   3.7428849208900223`*^9, 3.7428849696372766`*^9}, {3.742958321224535*^9, 
   3.742958334639358*^9}, {3.742958382379582*^9, 3.742958436980788*^9}, {
   3.7567070104032483`*^9, 3.7567070467992916`*^9}, {3.75670708788931*^9, 
   3.756707105731181*^9}, 3.756722441832169*^9, 3.756727141333909*^9, {
   3.7567280429718447`*^9, 3.756728351809244*^9}, 3.7567283863936996`*^9, {
   3.756728416598062*^9, 3.756728782333664*^9}, {3.756728868941865*^9, 
   3.75672893882086*^9}, 3.7567290273716393`*^9, {3.7571215285864353`*^9, 
   3.7571215301581917`*^9}, {3.757121563981743*^9, 3.7571215780690703`*^9}, {
   3.757121615337406*^9, 3.757121618106041*^9}, {3.757121664420191*^9, 
   3.757121680062321*^9}, {3.7724148649583607`*^9, 3.77241539427728*^9}, {
   3.772415539130164*^9, 3.772415563102087*^9}, {3.7724157309933276`*^9, 
   3.772415763789096*^9}, {3.7724158480078263`*^9, 3.772415872114392*^9}, {
   3.7724162765294104`*^9, 3.7724163631057367`*^9}, {3.772416447623707*^9, 
   3.7724164883033667`*^9}, {3.772530634685342*^9, 3.772530658463936*^9}, {
   3.772530708971106*^9, 3.772530713247064*^9}, {3.772531181443499*^9, 
   3.772531277952464*^9}, {3.7725387203288536`*^9, 3.772538727180707*^9}, {
   3.772538759016492*^9, 3.772538798797443*^9}, {3.7742000100859566`*^9, 
   3.7742000808621917`*^9}, {3.784707973560347*^9, 3.7847079837983713`*^9}, {
   3.788757359689341*^9, 3.7887573612437773`*^9}, {3.788757410879731*^9, 
   3.788757436220004*^9}, {3.788757506909336*^9, 3.788757507318314*^9}, {
   3.7887796526794043`*^9, 3.788779652755776*^9}, {3.788779874745263*^9, 
   3.78877987492474*^9}, {3.7887825008410997`*^9, 3.7887825436394463`*^9}, {
   3.788782641632115*^9, 3.788782672015244*^9}, {3.788782725700634*^9, 
   3.78878275352419*^9}, {3.788782784280984*^9, 3.788782891582254*^9}, {
   3.788783034727154*^9, 3.788783035647739*^9}, 3.788783233785625*^9, {
   3.788784006004034*^9, 3.788784023602634*^9}, 3.788784178180174*^9, 
   3.7887861217051888`*^9, {3.7887881280053663`*^9, 3.78878813565384*^9}},
 CellLabel->
  "In[2364]:=",ExpressionUUID->"6580a207-b33e-4e49-9b16-0109dc7e550e"],

Cell[BoxData[
 GraphicsBox[{{GraphicsComplexBox[CompressedData["
1:eJw9lwlYjN0bxlFKZf1CUSISIiFZstwKUUSKksiWkBZK0fYhlCxtiJJW7bQv
M0XatGsvrdM21cxU87ZMU4n6z/TNv3Odud7rmXmv857nmef+nfuVvmKhfW3W
jBkz/nA+3CtJ6mnPKZIbLqlYbjbkS8H5wAcn7KTdQem+vY4skIKoRMHlUc8D
sE/se8u72BSMPo/lzEDUv34UwF+RAnaw4jiVHoTADoG4mP4UOKZ3uSyKDcH1
C64flOVS4f/Ze6fallCYj1ndmriTCrndgrG2p8Jh0bEnYNPnVNw4ZeZs7xKO
M3pKLGZCKg6WOtrMjI9EDySffVlKguFZjYdj56Kh2n86KhgkvJ3Ubqgq/gx6
005bug0JNMIo+evWGAyS4x6VxpDQaeihfEI5Fhv2qzWQsknoE7Vo2bYgHmTP
5mpdaTLy58j+3qMfj77CvSuNFMkIG/fbsOtuInx9uIMMmrqs5Za3ieB7rJGd
E0jmfZ+IUflCllIwGfMLr2fRAhKx91avYn0IGaZy83aP1CdDRTzvp9gkGRJz
Bwv+ZKfihUyRk926NOxpVlc59IyEihyDgk3H07DoOOtewrk0KMcMLRbSTQPl
YMbuF+VpaHebjBXQT0PIuwwzmc1fIa881uiskQZq03WxhR++gk3ZtHHNyTRU
aTebqAl9A7l88+8AznrdHq8zjJ5k4C2rTOi3bBpSzBo5MwN58yQ371ubBk+j
/A0y9pn4J2aL8bNaMg49WBfd+SoTGst6bhRy4lDv5qDHAZkIZe5Xrakk4+SC
dwVDG7Om6xFzpM1ucUwWcohfkhcvk+H6YamfQ04WpEVmr55/mgx3ekrLzPfZ
iL/10F+XTgJnsxoHS7Nxfw1Ldm0mCY5vjvFlrMkB2fyec9djEuRzrDzqnXOw
4qTmIxF1Eh7WnV5uyczBKYZdxTCRigB9cUetO7lQiurSdvFNBT1wPiNw/g/c
vVR/Lr8vBeObj421//mBpRcHllwcSObUX1fOQToP/y5YVCealwztmwXkss15
SLHYE+8dn4xrfyRkJbXyIFu112Xr02ScYJsu8iDykJRiu1AvPQlftzq5TpzI
h9iXouhLq5IQomQy91BSPqidym/XeiUiTKZVJs+8AAzd3gYrjQSs5XSPvEUB
SrbWzstVT8CaFtvjLzixl4w6ZyZg8I9nSJF0IdQKNHcrdMbBLXt4/Xn3Qqib
ziUrxsbia35lh65oEaSqVVZUq3zBMn7ap2fXijCaNvHP8KVonr6KsANK5+J0
ImHwUuRC9rZiXr6hmHG0y0PIuhiJPjk+qz6F4LION+FiXImYVR0bGQDyRodh
m45ifLUNyzyj6g/BR1FXZYli3vM+Yv43xyuGu0tQq3jT5+vf1xgX6phhaFjC
+/0V6jIiteosS5BRm0m94/4QcUkdyTH3SuAkILvOxeQ+XNaQxBse/f/+5v3/
58e3p2KJlTPHIOxhNxhZ7Qn76NWf3n8fRfvqryn2hl74PZXXKDLZg9kmjl4w
6fWu2f5hFHXVROUZqzdIt5X8620wCm8FTZWMm28R9Vg54rHyKMRNDroU13hj
rxq9fUBoFBlEg+93vXfQPiRrf25sBGGVHlYBF97jwF9ySG/NCEz9duXTF/hA
3+GHnsOPEQhVuT/d1eyLuzd6Lbd/GMEz331KeVF+WCYtPjnbYgTJPuWi1338
McdaS9BaawRFwsJLFOP8MeA8m08AI7BaNfemyKZAXOKWf8nINP8m86Q03v9h
I8D4xowCvSCY9gcMj3SwoeJrmNzkHgTSlA7ZSPrNfsyYEQyt3G2vNYvY2Bf5
pqA4MARuByUpwS/Z2GPVSbH1+YQbxtzBnublPuvj7qdPspF5g1nbMB6KVoUU
lV072DDVoSX1CoXjnoBW/C9RNvjl+e5sXREBsan+GIbk7ESThV4RkBrcpVna
PjzNU8GqTZG534bx+lhqbk9/JMy520sZBt+tsd11mtEg2TLfHPcchuyJjwW2
wp+Rp8ct4DCU1RmdT+fEgGmwN67nIGe9g8zDERIxvP9/GMt1VEO+rI5BblK3
6UJOTHt0KeKwVhxsuOUUHIZg87nm4I9xUN4ZXXaIxZrmb2LNc/6NZSwc8aOG
6+xIgFy/j2Z6BAuEjYjF7YIEyHLl5MXCvNIr1cqURBSLDG74ZsjCnn8Edjz6
kYTFxt0zdXaz8MjA+CW/XTJquNtZwcLn0Hve/h+S0fskxLpvKWuaz7tWbG1K
mMvCtctJTWamqZCQPWq3tGII+9O5BCIhiCnpn5kyhEtD16u/cTj1hNt+EUMQ
jJcarTxGRvSeaI+0l0PwMXQ9gfVpaJoC7dA0zy+XevgFGQ/h53lhc2HldAj8
JTe3qA+BUsf6vrMrHdsVuWNomuevLOYXmEkMYU73597BHd+gaOkw6TRnaJrf
G1d65llUD0Lm8lm1mKDvoG7MaN+YMQiFB6pPQ75kolmpau3y54PTfF7kkGlF
0RrEjqAM4kdVFl5P8WgQRS3qz3QassHn1jYiumhwmre3XIzTguoGULyMTVIT
yIUqt3zVA6g4U6YgtvIHjJcoagz4DUzzNLjNoNvo5gAk46lHxm7kYXDJVMPh
44WDzjcc89Hls7tlQn5gmo8HruR/OT5zACSivl2UUQjX6E5LdlY/XG+vfKhQ
WIxT3Paw7sdJc3XnieslqNc56WKu348iiTXvaUQJftET/varcuKzEtYO4aWY
MTX6oTiwovXycCkSYhIDl9AIqB2Vr9c5Uw5jkcwcPWMC//GoHDn5/ypZbiJw
JPePwczCcnTSXrj/u4ZA1sq1jlHt5Tw9E/B1knL+KVWJnVa6ZuNGTPyHqUpQ
1shdvd/bhze14jmr7apA1dPfORLVB7OLy6SLNKqxcqr/+/C0IVn/QUM1NkwE
ec4Z7sX5A9yOq0G/pJyxaXYvfhwKr7dFLejzH9XXq/ZiTanMQsOsWlDuvMc2
vl4oVLQUmtj+wjkLP6O1UT1YHDNeUzOzDs1TjdCD84J821aK12N5CemBCYOB
WVe4wK9HJH09644fA64mTxaUujYgbp7NsVeqDAQdvrYovqcRJT2zbPRC6age
zOMorhFet/bzj/nTsaxptafvRCMO2GT37PxIx/o/81zWCjbhw9R5T+fpoRk7
2znVXUXHrlOPI8NtmmF5qy/b+TcNEdtGFsnIUng8pyF8itMUJG6I9LcPo2HZ
rctLk/spSF+/Otlan4b5h9bwX93QyuNxN+J/vt2suaMVySKL2zvI3dgn/Cvk
9r5W7Ja80iiZ2I3hN4VjxqdbURHMzlMI7IYeUfaxkNWKx3MoHVslunm8b8Ns
+Rtf0jO64FaimueW2IYV4tUCbIcu5BQOebRcaOfxsBPrujIyn1u2o/Pp1h2i
LZ2YsieO7TAQCr66t6YTGsKNxt+D2hH4NvOfvymdeHxkeQ9zSwdSvs4q2X2g
E3ZX+UX/fuzAs9ifkm4UKsxaX5yNZnbgqLIY42Qg9T/9baaCHbDOhnqTinGz
uz+lnlN5PKLCebnI+9xoKq7Z842en+xAx5SOqai90zujkrOOl836ixJ/qFis
aEUOI3XgjUjN/aPXO/F3qO3VL4MOTOGF0olmVvdxu5528LOCXzJWdUGIRX9y
MJmz78rP4QyfLp7e2+H4/IxOe10XrudQ+cZF2jl5cA1OF5bOSBUt6G5Do3j+
sZhX3dA+KycSeKkNujciytrcurFYm2nw4GIbVnHlI0WDtk3ym4ziVsSqH3ux
WoUGhdveuszPrVh1ky+n1pbG028rjOLkMp37aXi43aHBvKcFrpqh0t376fAw
+zw7WLEF5/vMmKF+dEwY7Mu+bEnBycPC85irGf/3DzDf0jgieJgBaUPlDQp9
TTyuMOB59X2ZV1gTfGlX/srQGdAhfQpbca4RfA57GSfkejCrfHjM70sDzlPE
sw496IGui72WV1E9DGW6TZK9enj+tR7CJRkrtkv3Yq3mqet3J38hb6qBetH3
7kJvyJ1aFExQlJ2SesHQP9Wdr1SLA+1xbP2iXp7fqoGQcpT9eo7OxyXz+R10
q6Fg8fJS8Pc+HJdbpaFgU4mFWdpX9fP64Ff1a9OwYSWGLgd8n1fSx/ODlVg2
IBFgP9SHVJslFxMDK3CX9XLSSpUJFSmnKpp6OYy4cj7JhLfM1Q9LhcuRTRHc
4unL5NXnJyyWLV+5OYmJkcIJl+OyJXjPcQcVLUwoziuvD1Irwi0+c/d/CSYv
30KUVnp58c8kUEoTl2/LKoC3/29tRwkCDG/6VjHrfAhF/qDe3UXw8vuBexXV
Z9+qE5h8qdZ2bjQXJVz+WhBw35SU/uZTNro2bdi78S6Bc1UlI5VG2Sjdq/GZ
ak3w8svGLqeY1Au2BO4FnzeJF8lGGVuMOceXwDFTl68q175jXljU/apwgpfP
N3S94pyYqZz9vBK9uMckDVf8jN66phPQ/lgWtaGAjIRvhrnLMgic/tfILk2d
DH3r50UOpcS036eJ5ikt/kVw3neUJnybExFFO9Ec1ExM+++x6jixvnbO/ecP
uZ0ui4MS0255fieB+Qbz1fR6YtF5c1yNj0FM+++5hqe/5fVy8j0mcULpBMd/
B22d6BwgMGr90p9yMRwGIxVzQ4eIaf/dpvK2q5xFoKT6gFdi6Sc0qWrXT4xx
zh2yfXa/rT9oVTNdnX4T03677ku4ZgMnZk5GflLb4YfRgY3S7hMEGq6GRQT8
egWnJvUvgRPEtP9uWBllGsWJtQwMpaVSX2JYuoY+OUnggIfcvlmH5DGzVYDB
jY8/DT5drCKP/wEEJRHe
     "], {{}, {}, 
      TagBox[
       TooltipBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
          18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
          35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
          52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 
          68}], LineBox[{69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 
          82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 
          99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112,
           113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 
          126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 
          139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 
          152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 
          165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 
          178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 
          191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 
          204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 
          217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 
          230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 
          243, 244, 245, 246, 247, 248, 249, 250, 251, 252}]},
        RowBox[{
          RowBox[{
            RowBox[{"0.07984536437142165`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"1.`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.381343519705222`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}], "+", 
            RowBox[{"1.9201546356285784`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"4.440892098500626`*^-16", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"5.522500000000001`", "\[VeryThinSpace]"}], "-", 
                    RowBox[{"5.741065186703998`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"5.522500000000001`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"5.741065186703998`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], ")"}]}]}]]}], ")"}]}], 
                  "+", 
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"5.522500000000001`", "\[VeryThinSpace]"}], "-", 
                    RowBox[{"5.741065186703998`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"5.522500000000001`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"5.741065186703998`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], ")"}]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.15915494309189535`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"5.522500000000001`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"5.741065186703998`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}], "+", 
            RowBox[{"1.3312875579307093`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"1.`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.381343519705222`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}], " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"4.440892098500626`*^-16", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"5.522500000000001`", "\[VeryThinSpace]"}], "-", 
                    RowBox[{"5.741065186703998`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"5.522500000000001`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"5.741065186703998`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], ")"}]}]}]]}], ")"}]}], 
                  "+", 
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"5.522500000000001`", "\[VeryThinSpace]"}], "-", 
                    RowBox[{"5.741065186703998`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"5.522500000000001`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"5.741065186703998`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], ")"}]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.15915494309189535`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"5.522500000000001`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"5.741065186703998`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}]}], "\[Equal]", "0"}]],
       Annotation[#, 0.07984536437142165 (Log[
             HoldForm[$CellContext`tt]] + 1. (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.381343519705222] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) + 
         1.9201546356285784` (
           4.440892098500626*^-16 (
             1 + (5.522500000000001 - 5.741065186703998 
               HoldForm[$CellContext`x]^2)/(0. + 
              1. (5.522500000000001 + 
                5.741065186703998 HoldForm[$CellContext`x]^2))) + Log[
             HoldForm[$CellContext`tt]] + 
           0.5 (1 - (5.522500000000001 - 5.741065186703998 
              HoldForm[$CellContext`x]^2)/(0. + 
             1. (5.522500000000001 + 
               5.741065186703998 HoldForm[$CellContext`x]^2))) (
             1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.15915494309189535`] 
                 HoldForm[$CellContext`tt]^(-1) (5.522500000000001 + 
                   5.741065186703998 HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) + 1.3312875579307093` (Log[
             HoldForm[$CellContext`tt]] + 1. (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.381343519705222] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) (
           4.440892098500626*^-16 (
             1 + (5.522500000000001 - 5.741065186703998 
               HoldForm[$CellContext`x]^2)/(0. + 
              1. (5.522500000000001 + 
                5.741065186703998 HoldForm[$CellContext`x]^2))) + Log[
             HoldForm[$CellContext`tt]] + 
           0.5 (1 - (5.522500000000001 - 5.741065186703998 
              HoldForm[$CellContext`x]^2)/(0. + 
             1. (5.522500000000001 + 
               5.741065186703998 HoldForm[$CellContext`x]^2))) (
             1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.15915494309189535`] 
                 HoldForm[$CellContext`tt]^(-1) (5.522500000000001 + 
                   5.741065186703998 HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) == 0, "Tooltip"]& ]}], {}}, {{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGCQBWIQnd6yfj/rg4n2nBF/dyXM/GHfczRvoXruLPv3Wqff
mtz4bs8Xwzb5i+tCe9cy4Zu+Kd/thaacTmPPWmqf3CqXceTkN/v4Y8bJt/tW
2O+8kBZ8N/Sbvah5+aNY+dX27hFvZs3g+GZf5vMhYd6K9fap6d81+fO+2u/X
8DI4oL/ZvqmMaWfr5S/2KQsCfJ6UbbfP8LzwOlLoi33NR+eVWx1227dF3K66
UP7Z3ul38ZXTvw/YZ2mvXLtk2yd7XqPLj6ozjtiLH7JsuXbuo32DrLzae4Zj
9rm8Tfnvoz7a2xfMYdPgQ/B71r2LvDrtlH3QA/9Fh2d+sGcuZlb4qHrB/u/b
Ax9fJb+3t1Zgbk1SumwfKv1ont+Ut/brU7WubFa/bm97oWNybvlr+3qNrWIZ
xXfsnaZYiTMfeGGfw/JxjkH0A3stz4fcSouf2Z/Y+8zp0pRH9kL/2hkc257Y
r414I1Z16Yn9z016X+MzH9nvO5en8ujQE6j7H9kv/f9w27KEZ/ZHIk5FcTx/
YG/XO/Fn2rQXUPvv2gus9l4X6fAaGp7X7EsF4tbFb31nX6z1VvfozzP2yzfP
OJdk9d7+VZpk1vz+U/ZNvzneKe94b88ABQDpJel2
       "]]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, {{}, 
    GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQDQEf7GEs2yTrTeemvrcP2vhlmvXv4/b8+2Xev3v3
zr6NvXAuf9kV+2COsAz9hW/tz29esupIxT37gAPeG1ij39grK0l9SFn6yD5i
uWd5eflr+8k/D67xXfDE/kvH2xNW4a/s2w9c2aHY+8w+6XhRuNyEF/Z9PZtd
Zr96YS8oxubGW//c/kLV26QkhVf2a7+vnH4h7pl9e5rjwWuyr+1/SjBZ9j1+
Yu/6I+p8vOYb+4Ohu6ayqzy2r2jvk5325439R0OWIpnjD+37jRR8A6rf2r8Q
vD2xdN0De6XGiTlnzr+FuveuvYdcyeojFe/sPU/lec3/ctO+cu3yn7+839sf
XrP4jeqW6/ZBP9S/NDN+sHef6GyY9eOyfflULuOaVR+g5l+0D9wRyKWj9NE+
fq7a3bt3z9pX//75w+LmR6j+4/Y6eUv9+w5+st+z/PnzU8yH7Bdpv1z6eOVn
e4e8k+9Ut2y3XzrxRvaCG1/sr1zsuKheu8n+0CN97/zUr/bi8s4Kxwvn2Ivb
JDdMvvUNHg8Ji12XVar+sB+Nn8EdPwCGiZxV
     "], {{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18, 19, 20, 21, 22, 23, 24, 25, 26},
         VertexColors->Automatic]}}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
       1.6]}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
        1.6]}, {}}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
        1.6]}, {}}},
     VertexColors->CompressedData["
1:eJzt0u0v1AEAB/BD5mFTKrtlJw/TUZ6XCz3YV5gicTlbrPXAXGIV5hQjzylr
GC3RxlF5WkxKm83hxM8hCefh6LjuuPu5BwvpYR6Sv6JXXnz+g49VZFwIW5tC
oTB26OxYOc87U2E/B7dmVSNV1I757cJ65uw3pDFCteJNR5DZtknYNQyBI/E/
5lC8iNrwAVaT/Qh6DXw7dTGDRV+Pi7RVJZTkUOhypxABW+Zlj0UyuFBvcHPz
SHyrvRusK57CXr2rZsaQw1kxmGptvAAiNktdSMwgneyk9bgp4HL0r+v0tBQD
7sQlF/05tKA/Yl2qwB4n0wPiEgmeUdYPi49LUZRlzL2cTOJmimvrhngGXc68
qPBbMvxpe19aX0PC28iH2tUtwltlaVgxex6sBO0A3iCJU9U26QX6U8jYMqqL
TFnAYMchwwcDJJYE5veftEzg2lCwyT2WHFUOlRu/+kjQ2fT523XjCDzByw+a
lIOoDQlPJEhQ5Cvf+XrjQE90dr6jAjpWVkvxvSR8G22CgiqEqLEQeAgnFGiO
iFZmvSNR02vpkKQcg2NGcqtPJYmYZVzPySZhIeGwP3qOgfjgl7d+YRGJbeUG
6jASobPVZ9fqR5HZFJXEfqjEaWZGkViLRLRrkb971QjeBOpNxjBUeP66hdjM
UoAvE/02oo+gkO3pSPVSI6xIxy+2U44vnmXMiNFhdKik4Ry6Bgc5/Bd3vBfA
WjeU9Dh9BrWhI7dgQoPuOuP9Xo9kKJHG/RRxP4H7KqfsilSDNVpAKq1sDpbm
bLWh3QCEPIaXLV8D2eqEqu/kV5wzY+ezxAJY21Oe7tPSoD2C2SLwG8Vwq9aP
YN1eqIY8j6TFqfGy3HbKpJ8PQVTCdrGSj91vu9/+57d/drh+sQ==
      "]], {{}, {}}}},
  AspectRatio->1,
  AxesLabel->{None, None},
  AxesOrigin->{0.015, 0.},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
    "\"T/\\!\\(\\*SubscriptBox[\\(T\\), \\(c\\)]\\)\"", TraditionalForm], 
    FormBox[
    "\"B/\\!\\(\\*SubscriptBox[\\(B\\), \\(p\\)]\\)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "GridLinesInFront" -> 
    True},
  PlotRange->{{0.015, 1}, {0, 1.6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.772530725322546*^9, {3.7725311852337713`*^9, 3.7725312788976297`*^9}, 
   3.772538612535664*^9, 3.7725387287429376`*^9, 3.772538762349389*^9, 
   3.772538799830331*^9, {3.7742000572609243`*^9, 3.774200082272684*^9}, 
   3.788757366231439*^9, 3.788757437934038*^9, {3.788782879026804*^9, 
   3.788782892457625*^9}, 3.788783037121434*^9, 3.788783236644761*^9, 
   3.788784026006248*^9, 3.7887841798804703`*^9, {3.788788129532449*^9, 
   3.788788137315551*^9}},
 CellLabel->
  "Out[2380]=",ExpressionUUID->"1458008a-ee71-4fef-87d3-28ef2179b0c8"]
}, Open  ]]
},
WindowSize->{924, 618},
WindowMargins->{{0, Automatic}, {Automatic, 87}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
Magnification:>1.25 Inherited,
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (2019\:5e744\:67088\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 21641, 578, 2743, "Input",ExpressionUUID->"1c94dbe4-2c54-4a00-ba5e-4db098c72887"],
Cell[22224, 602, 36945, 787, 466, "Output",ExpressionUUID->"c2fae51d-f3e0-43b2-a370-eeddd6a1acb9"]
}, Open  ]],
Cell[59184, 1392, 99, 1, 4, "PageBreak",ExpressionUUID->"1cbbe7e0-9aba-4bae-99d9-ac3eb9750f1d",
 PageBreakBelow->True],
Cell[CellGroupData[{
Cell[59308, 1397, 16553, 396, 1741, "Input",ExpressionUUID->"dbccd3c1-7f8c-4521-943b-4e0ac1518f52"],
Cell[75864, 1795, 17150, 333, 466, "Output",ExpressionUUID->"c156cb92-3d01-4459-977f-0947519ba59e"]
}, Open  ]],
Cell[93029, 2131, 99, 1, 4, "PageBreak",ExpressionUUID->"6ecba142-7832-4671-bb86-5d440311dbe0",
 PageBreakBelow->True],
Cell[CellGroupData[{
Cell[93153, 2136, 19830, 544, 2546, "Input",ExpressionUUID->"c707d823-e122-4a65-b67d-36632469cb21"],
Cell[112986, 2682, 36122, 770, 476, "Output",ExpressionUUID->"a98fca9e-5d83-438a-a320-3ca5bacfbae3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[149145, 3457, 12486, 370, 1930, "Input",ExpressionUUID->"0c680473-364b-440c-98a0-be0c64b4f246"],
Cell[161634, 3829, 15833, 317, 476, "Output",ExpressionUUID->"3cad56e2-7375-4058-88d2-a2291ed65dfd"]
}, Open  ]],
Cell[177482, 4149, 99, 1, 4, "PageBreak",ExpressionUUID->"b93334db-9d3d-499c-949c-2c599991addd",
 PageBreakBelow->True],
Cell[CellGroupData[{
Cell[177606, 4154, 20272, 509, 2391, "Input",ExpressionUUID->"5cc24e35-df45-442f-9d7a-3499cb7f57a1"],
Cell[197881, 4665, 17642, 345, 469, "Output",ExpressionUUID->"4351c9db-d6a1-4ec6-b8f6-8083976b2d86"]
}, Open  ]],
Cell[215538, 5013, 99, 1, 4, "PageBreak",ExpressionUUID->"d0af85ab-2e88-4a41-b496-579b47b0fcf3",
 PageBreakBelow->True],
Cell[CellGroupData[{
Cell[215662, 5018, 25513, 646, 3006, "Input",ExpressionUUID->"6580a207-b33e-4e49-9b16-0109dc7e550e"],
Cell[241178, 5666, 22129, 441, 466, "Output",ExpressionUUID->"1458008a-ee71-4fef-87d3-28ef2179b0c8"]
}, Open  ]]
}
]
*)

